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1. ABSTRAq 

The DM01 Exerciser is a program written fo exercise the DM01 Data Break Multiplexer to 
assure that it can properly interlace data breaks from several peripheral devices to the PDP-8 computer, 
It does this by exercising several data break devices simultaneously. 

2. REQUIREMENTS 

2«' Equipment. 

Fomi f y-of-8 Computer and 

DM01 Data Break Multiplexer, plus at least one of the following 

TC01 DECtape and/or 
TC58 MAGtape and/or 
338 Display and/or 
Extended Memory and/or 
RM08 Drum or 
DF32 Disk or 
RF03 Disk 

2.2 Storage 

The program occupies all of the lowest 4K of the computer's memory and uses some of this 
oreo and areas in other memory banks (if available) for data storage. 

*'3 Pxejjminary Programs 

The appropriate diagnostic programs for the data break devices. 

3. LOADING PROCEDURE 

3.1 Method 

The program is loaded, using the "standard binary loader" technique, into memory bank 0. 



AC Switch 



4. cTAgTiNjg PROCEDURE 

4.1 Control Switch Settings 

. * ui rt f&r Switch settings and their action on the program. 
The following is a table of AC bwitcn semng* 

Set As Action on Program 

j Don't halt on hardware errors 

Halt on hardware errors 

j Don't halt on data errors 

Halt on data errors 

1 Don't print hardware errors 
q print hardware errors 
■j Don't print data errors 

Print data errors 

1 Look at ACS5 for disk/drum transfer 
direction 



10 



11 



Ignore ACS5 

1 Write 
Read 



1 

None 



Suppress DECtape exercising 



1 

q None 



Suppress MAGtape exercising 



Suppress disk/drum exercising 



1 

None 

1 



1 



^ Freeze memory field 

q None 



4.2 Starting Addresses 

There are two starting addresses for the program. 

a. Start at location 00200 when the program Is initially read into memory, to allow the 
program to interrogate the operator. 

b. Restart at location 00201 to avoid re-interrogating the operator about computer 
configuration . 

4.3 Starting Procedure 

Start the program using the following starting procedure, and ignoring those steps not 
applicable to computer configuration . 

a. Load program into memory bank using the "standard binary loader." 

b. Mount onto a DECtape transport a reel of DECtape which has the standard mark and 
timing track format (2702 blocks, 201 words each) . Set the transport selector to 8 set switch to 
WRITE ENABLE, set switch to REMOTE. 

c . Mount onto a MAGtape transport a reel of MAGtape which is certified to operate at 
800 bpi with the "write-lock" tfng in (able to write). Set the transport selector to and ON LINE. 

d. Set up the DF32, disk 0, so that the upper 16K may be written on (not write-lock). 

e. Set up RF08, disk 0, so that uppermost locations may be written on (not write-lock) 
(256K). 

f . Set up RM08 drum so that track 77, sectors 50 to 77 may be written on (not write-lock). 

g. Set up 338 Display so that it can be operated by the 8. 
h. Set ACS to 00200. 

i. Depress LOAD ADDRESS. 

j . Set ACS per Section 4.1 (normal setting is 0000) . 

k. Depress START. 

I . Answer questions asked by program with "Y" for Yes, "N" for No, and number of 
extra memory banks (between 1 and 7) (if applicable). 

m. After interrogation is complete, program will start exercising the devices whose answers 
are "Yes 1 * and the DM01 . 

5. OPERATING PROCEDURE 

5.1 Operational Switch Settings 

See Section 4.1 



5.2 



Subroutine Abstracts 



None 



5.3 Program ond/or Operator Action 

After setting up the I/O devices and answering the questions asked by the program, the 
fiperofor i*9*d perform no other action unless an error occurs . If a particular device consistently has 
errors, if may be "turned off" by setting to 1 its ACS (see Section 4.1, ACS 6-8) . 



6. 



ERRORS 



6.1 Err or Typeouts 

Since all error typeouts occur with the program interrupt facility off, a DECtape timing 
mm will generally occur if any non-DECtape error has been typed out. Normally, the DECtape 
limine error can be ignored under these circumstances . 

6.1.1 Hardware Errors 

Hardware errors cause on error status typeout for the device in error. Shown below are 
th» «rror status bits for the various devices . 



6.1.1.1 DECtape Brror Status (TC01) - 



i*l * I 2 1 3 



Error Flag | %. \ 
Mark Track Error\\ 
End of Tape «~ ■" ■ ■ X 



6 



8 9 10 II 



T 



l \ Timing Error 
^ *- Parity Error 
Select Error 



Memory field register ] 

DECtape Flag 



6.1.1.2 MAGtape Error Status (TC-58) - 



1 



m 



Error 

Tape Rewinding- 

Beginning of Tape* ' 

Illegal 

Parity Error 

End of File 



4 4 4 i 



10 ! 11 



^-MAGtape FLAG 
— ■ — Sad Tape 
— -Data Request Late 
• — Record Length Incorrect 
- Read Compare Error 
End of Tape 



4 . 1 .1 .3 Drum Error Status (RM08) -r 



cn 



m 



10 



11 



t 



Data Timing Error 
Parity Error 



Drum Sector Counter 



6 . 1 . 1 .4 Disk Error Status (DF32) - 



1 j ' 12 I 3|4[.5| 6|7 |8 |9 |101 11 | 



t~ 
Photo-Sync 

Mark 



T 



Computer 
Extended 
Address 



" * 



Disk Extended 
Address 



1 — Parity Error 
— Non-existent Disk/ 

write-lock on 
■Data Request Late 



4.1.1.5 Disk, Error Status (RF08) - 






1 


2 


3 


4 


5 6 


7 


8 


■ 
9 


10 111 



Photo-sync! 
Mark } 
Data RQ 
Enable 



Interrupt 

Enable 

Buffer 



, — T — . 

Computer 
Extended 
Memory 



4 

*— Parity Error 
Non-existent Disk 
Data Request Late 



Write Lock-on 



4.1.2 Data Errors 



Data error typeouts present the following information: 

a. Offending Device (DECtape, MAGtape, DISK/DRUM 

b. Memory Field in which error occurred 

c . Address of "Good" Data ("GADD") 

d. Good Data ("GDAT") 

e. Address of "Bad" Data ("BADD") 

f. Bad Data ("BDAT") 



4.2 



Error Halts 



Each error, which has an error typeout, also has an error halt. 



6.3 Error Recovery 

To recover from an error ha!*, depress CONTINUE. If if was a data error, the program will 
continue until another data error Is found for the device, or until a!! the data has been checked. If 
It was a hardware error, the program will attempt to perform the function again, except a non-existent 
disk error which is not recoverable . 

7. RESTRICTIONS 

7.1 Starting Restric tions 
None 

7.2 Qperating Restrictions 
None 



8. MISCELLANEOUS 



8.1 Execution Ti 



me 



Not applicable. Since this Is an exerciser program , it does not stop on Its own accord, 
except for errors . 

9. PROGRAM DESCRIPTION 

9.1 Interrogation 

The first function that is performed by the program is Interrogation. The operator is 
questioned by the program to determine what peripherals are to be exercised . 

9.2 Initialization 

Next, initialisation takes place. Random memory fields (If applicable) are selected for 
the devices being tested. The DSOape Is initialized by causing it to move to the end zone at the 
beginning of tape . The MAGtape is initialized by causing it to rewind to the beginning of tape} 
tests are also made at this time to assure that the tape control is ready and that the tape transport is 
also ready (and exists) . A two word transfer is made to disk or one sector to the drum to initialize it. 
The 338 Display Is set up to execute a display program. 



9.3 DECtape Exercising 

The exercising of DECtape follows this procedure: 

a. Six hundred (octal) words are obtained from a random number generator and are stored 
in an output buffer in memory (some memory bank). This is done with PI off. 

b. The block to be sought for writing is incremented by 3. It is initially 0. 

c. The data is written on DECtape into the selected block (and the two following) , While 
this is taking place, the PI facility is turned on to allow interrupts from any I/O devices in use. 

d. After the data is written, the information is read back from the selected block (S) into 
an input buffer in the same memory bank data was written from . This takes place with PI on . 

e. The data written is compared with the data read to see if any errors occurred. This 
is done with the PI on. Any discrepancies will be reported on the teletype (unless suppressed) and 
will cause error halts (unless suppressed). 

f. A new data field is selected for data transfer for DECtape. The program then returns 
to Step a (above) . 

9.4 MAG tape Exercising 

The exercising of MAGtape follows this procedure: 

a . Six hundred (octal) words are obtained from a random number generator and are stored 
in an output buffer in memory (some memory bank) . This is done with the PI on. 

b. The data is written on MAGtape in an area not previously written on by this program. 
While this is taking place, the Pi facility is turned on to allow interrupts from any I/O devices in use. 

c. After the daia is written, the information is read back into an input buffer in the same 
memory bank data was written from. This Is accomplished by rewinding the MAGtape to "BOT," 
spacing forward as many records as necessary to get to the data, then reading it into memory. This 

is done with the PI on . 

d. The data written is compared with the data read to see if any errors occurred. This 

is done with the PI on. Any discrepancies will be reported on the Teletype and will cause error halts, 

e. The data on MAGtape is then "Read Compared" against the data in memory. This is 
done with the PI on . Any discrepancies will result in the hardware error "Read Compare Error" . 

f. A new data field is selected for data transfer for MAGtape. The program then returns 
to Step a (above) . 

9.5 Disk/Drum Exercising 

The exercising of disk/drum follows this procedure: 

a. Six hundred (octal) words are obtained from a random number generator and are stored 
in an output buffer in memory (some memory bank) . This is done with PI on. 

b. The data is written on the disk/drum into the highest 601 (octal) locations (on disk/drum 0) 
(265K). While this is taking place, the PI facility Is on. 



c. After the data is written, the information is read back into an input buffer in the same 
memory bonk data was written from . This takes place with the PI on . 

d. The data written is compared with the data read to see if any errors occurred. This is 
done with PI on. Any discrepancies will be reported on the Teletype and will cause error halts. 

e. A new data field is selected for data transfer for disk/drum. The program then returns 
to Step a (above). 

If a hardware error occurs during any function of a peripheral, that function will usually be 
attempted repeatedly until it is successful, or the operator intervenes. 

9.6 Date Buffers .M emory Map 

The following locations in each memory bank being used for data transfer are used as buffer 



areas. 



DECtape Output Buffer 3200 - 3777 

MAGtape Output Buffer 4000 - 4577 

Disk/Drum Output Buffer 4600 - 5377 

DECtape Input Buffer 5400 - 6177 

MAGtape Input Buffer 6200 - 6777 

Disk/Drum Input Buffer 7000 - 7577 

9.7 Display Exercising 

The exercising of the display is handled quite simply. The 338 is initialized by clearing 
the "initial conditions", and the break field is set to 0. The display address register is then set to the 
starting address of the display program. The display program, which is written in 338 display instruc- 
tions, causes a square, with corners at 100,100; 100,1700, 1700, 1700, 1700. 100; to be displayed 
in vector mode. Diagnosis of display errors is visual . 



/OHfl Ml^tC* - T4PE 1 ""• V *** 

. /OHtl EXCRCISER - T *H V 
/10T definitions 

4603 ORCR«6603 

4605 ORCW*6605 

4611 0RCF«6611 
6612 DREf-6612 
661$ 0RTS-66X5 

4621 0RS£«662i 

4622 0RSC»6622 
6624 0RCN»662* 

4612 0RES«6612 
§624 0RrS«6624 

. /oisc 

4601 OCMA»6601 

4603 DMAR«6603 

460$ DMAW6605 

46H 0CEA«6611 

*6l2 OSAC-6618 

6619 0EAL«6615 

6616 DEAC«6616 

4621 DFSE«6621 

6622 0r5C»6622 

6^26 DMAC»6626 

4611 0C1M=6611 

6615 0IML»6615 

4616 01MA»6616 

4643 0XAL*6643 

/TC01 

4761 DTRA*6761 

6762 0TCA=6762, 

4764 0TXAS676* 

4766 0TLA*6766 

4771 DTSF»6771 

4772 DTRB«6772 
4774 DTLB«6774 

/TCS8 

6701 MTSF*6701 

4711 MTCR»6711 

6721 MTTR*6721 
§712 MTAF«6712 
4714 MTCM*6714 
6716 MTLC°6716 
6706 MTRSs6706 

6722 MT6Q a 6722 

/EXTENDED MEMORY 
&201 CDF=6201 
4202 CIF«62®2 
6214 RQF*6214 
$224 R1F*6224 
6234 RiB»6234 



♦244 *Mr«6244 



Vt«l 24-MAR-71 



•Mi PAGC 1-1 



§001 

0001 §402 

§002 2600 

0003 ?32i 

0004 2254 

0005 2400 

0006 *554 

0007 VU* 



Mid 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0060 

0061 

0062 



0020 



2630 
2654 
2720 

1501 

i«6i 

1516 

1400 

2643 

0735 

0755 

2637 

2112 

3641 

1240 

1255 

2444 

1067 

1047 

2277 

2645 

1266 

2363 

0600 

0610 

0627 

0644 

0662 

2634 
1331 
4343 
0345 

0365 



/DISPATCH TO PI SCAN FUG «0UTI 

JMP I .♦! 

SCAN 
/POINTERS, COBS Of POINTERS 
*NTR1, MESAGE 
PNTR2, imp ut 
PNTR3, RANCEN 
PNTR4, GET 
PNTR5, D00ATA*6 



NE 



•20 

DTFEIO, 
MTFEUD, 
00FEL0. 
PNTR6, EXIT 
PNTR7, RAN03 
WR8, OOOATA 
PNTR9, RF08WR 
RNTR10, RF08RO 
PNTR.il, RM08WR 
RNTR12, RM08RO 
PNTR13, OOFLAG 
PNTRJ4, DF32WR 
PNTR15, 0F32R0 
PNTR16, OTFLAG 
RNTR17, SPCFWO 
RNTR18, MTFLAG 
PNTR19, REWIND 
PNTR20, mterr 
PNTR21, RAND1 
PNTR22, OTRITE 
PNTR23, OTREAO 
PNTR24, print 
PNTR25, TYPE 
PNTR32, MTWAIT 
PNTR33, CRLF 
PNTR34, DECTAP 
PNTR35, MAGTAP 
PNTR36* RM08 
PNTR38, DF32 
PNTR39, RF08 
PNTR40, MEMORY 
PNTR41, DTSAVE 
PNTR42, OTREST 
PNTR48, NODISC 
PNTR49, 0IS338 



/£*SI^ C EXT ^NDED MEMORY FIELD 
/DISC OR DRUM EXTENDED MEMORY FIELD 



0064 1565 
i5 2171 



PMESS1, MESSil 
PMESS2. MESS02 
PMESS3, MESS03 



>MZ l*Z*Zltt* - TAK 1 m,U VJ41 *0. M |,. n f af , m M 



t088 13*1 »«fS$4. »rss*4 

Illi !I 4f •«»••• *«s«a 

00?2 3044 *«»SS9. *£|S09 
007* 5232 0MCS15, -fSSiS 

0076 77*1 .T7, - § -*V 

0077 : > !? * -„. ,H %' ^ :^JJ 

*C00 

/** - -.C01 

/c# - rc:0; 



01i0 **53 *^7«,s ?7§3 r - 

0101 •»"•§« *?7&«, 77J« 
• 10* *5* K7753., ?7J S 



0103 0400 K 0400 4 0f /Rtvrwsf D:^:-- !ftw , DrrT . pr .' 

010* 0*00 «0 ?0e . ?if .-^ "«to* ar ;: -;»?- 

• 110 0014 *00i4 -.. » r „ *;. V f 5iL-Ip«"" 

■us •>- « ^ -^! /^*£ ^pc d-^pu* iorrcp/.i 

0X15 7'7S U0003, v..:> *y; v -i 3 ■*■-• ' 

•U0 '-•/ M 03l6 , , u , ■„;-; ^ 

0l20'-"-»i0«! ■ »y-0f -?-?0{- /wp:"« 

012* " ■ ■ «080«« 

012* 300,. *3000, *-?,-■ -4 *■.:*., D kum S£r-nP< 

?* ? *»•• **•?•■■ ,■*■ /m.o-. -^«s *r» R- ':■;■;;'.. !S 

012- 0040 K004*. in /*/.$* FCR C£C T *Pr' *-iippa ;L »v-«». 

01 ?* * ... K02": * 

0:.?." •■'•: ' K0 ?,:,:; ■ 

*'; 1 * 4«* 

• i?< 0.00 * > ,:.' 

. * '610 $, ;.;.;. .. ■ ., : ... ■■ i; . ... .... 

*:■** 002e *.a-.v.v ;> : ■---'<-■'"'*./' : -^' , 

«'" » 01 « "^^ 0. -.0 .-.v.s^- ^' : i : V^'n*: 

0.. 3^ i0«i0 *:.**.* : '00? /v ASH ' ' 






/Cf- 

/:. r 



0^ 



S' 



**'. ^ 



/ ;< (ii- . ■ - f * r ,r ■ -, ■ ■ t,, ^<-- Aw.. ••.•.-•«■' *0F 3*/ 

0.'*- .■ • ?>f f$n;*,.r. '■ - '■ »« " UuKt * s 

>-^ ~-.%n> : u ".-' '■■■ " ; " ?tl '"- -■""-^ ^^08- 

^ * ■ '■■■•a '■ .* -^^ .;,;;; ' ". Nr - ■■ * : ' ,,,; " : •■ * r »8 

*! » ■ ■'; ■*!■■, .. • ;. ,.-,.,... 

■•.».. 

0. *%■ .;/^ , flj', NK ;Vi ' .. . p : 

0'.*^ *idi*y '•".''>** •> '., ...;■■ s' A > ..■■;; 

8., * ■■ 00«i? ■ '.i . ■ . m •>. . . ■","' * ■ . " 'ic 



/DM01 uXC*C!8El - TAPE 1 



PALli Vl«l 



24*MAR-7i 



♦ »1* PACE 1-3 



0190 

0151 

0192 

0153 

0154 

0195 

0156 

0157 

01*0 

01*1 

01*2 

01*3 

01*4 

01*5 

01** 

01*7 

0170 

0171 

0172 

0173 

0174 

0173 



0000 



0000 
0000 
0451 
5452 
9453 
5454 
1453 
94*2 



1*00 



0510 
052* 
0*17 



0000 
0000 



ACCORD 

ODSTAT 

ORMSec 

CHAR, 

JMPDEC 

JMPMAG 

JMPRM8 

JMP032 

JMPR08 

JHP338 

rtio, 

DTPNTR 

MTPNTR 

RM08PR 

0F32PR 

RF08PR 

DTCNTR 

TEMP, 

TEMPI, 

MTCNTR 

OOCNTR 

LOOK* 










JMP I 

JMP I 

JMP I 

JMP I 

JMP I 

JMP I 



OTCXER 

MTEXER 

RM08EX 

DF32EX 

RF08EX 







/NUMBER OF RECORDS WRITTEN ON MAG TAPE 
/DRUM OR DISC STATUS 
/DRUM SECTOR COUNTER 
/CHARACTER FROM KEYBOARD 



/JUMP TO OECTAPE STARTER 
/JUMP TO MAGTAPE STARTER 
/JUMP TO RM08 STARTER 
/JUMP TO DF32 STARTER 
/JUMP TO RF08 STARTER 



PNTR34 

PNTR35 

PNTR36 

PNTR30 

PNTR39 

PNTR49 

/NUM9ER OF EXTENDED MEMORY FIELD! 
/POINTER TO DECTAPC EXERCISOR 
/POINTER TO MAGTAPE EXERCISER 
/POINTER TO RM08 DRUM EXERCISER 
/POINTER TO 0F32 DISC EXERCISE 
/POINTER TO RF08 DISC EXERCISER 
/DECTAPE LOOP COUNTER 
/TEMP STORAGE 

/MAGTAPE LOOP COUNTER 
/DISC OR DRUM COUNTER 
/BLOCK LOOKED FOR 



0200 9207 

0201 0000 

0202 0000 

0203 0000 

0204 0000 

0205 *001 

0206 920* 



0207 
0210 
0211 
0212 
0213 
0214 
0215 
0216 
0217 
0220 
0221 
0222 
0223 
0224 
0225 
0226 
0227 
0230 
0231 
0232 
0233 



7200 
3201 
3202 
3203 
3204 
10*3 
4403 
10*4 
4403 
4327 
9225 
5216 
1154 
3201 
1066 
4403 
43g7 
5234 
9225 
1155 
3202 



•200 

START, JMP 





ION 
JMP 



INTERR 



/INTERROGATE OPERATOR 

/<D£CTAPC) THESE AND'S MAY BE REPLACED 

/(MAGTAPE) BY JUMPS 

/(DISC OR DRUM) If THESE DEVICES ARE AVAILABLE 

/C338 DISPLAY) 

/TURN ON PI 

/IDLE HERE WHEN THERE IS NOTHING BETTER TO DO 



/INTERROGATE THE OPERATOR ABOUT MACHINE CONFIGURATION 



INTERR 



ASK1 



ASK2 



CLA 
OCA START+1 
OCA STARTS 
DCA START+S 
DCA START+4 
TAD" PMESS1 
JMS I PNTR1 
TAD PMESS2 
JMS J PNTR1 
JMS TEST 
JMP ASK2 
JMP ASK1 
TAD JMPDEC 
OCA START*1 
TAD PMESS4 
JMS I PNTR1 
JMS TEST 
JMP ASK3 
JMP ASK2 
TAO JMPMAG 
DCA START*2 



/INITIALIZE STARTER JUMPS TO AND 



/TYPE OUT HEADER 



/ASK OPERATOR ABOUT OECTAPE 



/ASK OPERATOR ABOUT MAGTAPE 



»*.«A 


! - TAP! 


: i 


PALI* V141 


24-MAR-71 ■■■..*>!»' PA6C 1-4 


0234 


1065 


A$K3, 


TAO PMCSS3 




0235 


4403 




JMS I PNTRl 


/ASK OPERATOR ABOUT 330 OJSPL 


§236 


4327 




JMS TEST 




0237 


5243 




JMP ASK4 




0240 


5234 




JMP ASK3 




0241 


1161 




TAO JMP33S 




0242 


3204 




OCA START*4 




0243 


1047 


ASM, 


TAO PMESS6 




0244 


4403 




JMS I PNTRl 


/ASK OPERATOR AaOUT RMB8 


0245 


4327 




JMS TEST 




0246 


52S3 




JMP ASK5 




0247 


5243 




JMP ASK4 




0210 


1156 




TAO JMPRM8 




0251 


3203 




OCA START*3 




0252 


5272 




JMP ASK7 




0253 


1070 


ASK5, 


TAD PMESS7 




0254 


4403 




JMS I PNTRl 


/ASK OPERATOR ABOUT DF32 


0255 


4327 




JMS TEST 




0296 


0263 




JMP ASK6 




0257 


5253 




JMP ASKS 




0260 


1157 




TAO JMPD32 




0261 


3203 




OCA START*3 




0262 


5272 




JMP ASK7 




0263 


1071 


ASK6, 


TAO PMESS8 




0264 


4403 




JMS I PNTRl 


/ASK OPERATOR ABOUT RF08 


0265 


4327 




JMS TEST 




0266 


5272 




JMP ASK7 




0267 


5263 




JMP ASK6 




0270 


1160 




TAO JMPR0B 




0271 


3203 




OCA START+3 




0272 


1072 


ASK7, 


TAO PMESS9 




0273 


4403 




JMS I PNTRl 


/ASK OPERATOR ABOUT EXTENDED MENORY 


0274 


4327 




JMS TEST 




0275 


5303 




JMP ,*6 




0276 


5272 




JMP ASK7 




0277 


1073 




TAD PMES10 




0300 


4403 




JMS I PNTRl 


/ASK HOW MUCH 


0301 


4404 




JMS I PNTR2 




0302 


5277 




JMP ,-3 




0303 


7104 




RAL CLL 


/POSITION BITS 


0304 


7006 




RTL 




0305 


3162 




DCA FELO 


/STORE NUMBER OF EXTRA MEMORY 


0306 


4490 




JMS I PNTR33 


/CR-LF 



BANKS 



0307 
0310 
0311 
0312 

0313 
0314 



1134 
3000 
1115 
3010 
4405 
0123 



/LOAD EXTENDED MEMORY FIELDS FOR 
/DECTAPE, MAGTAPE, AND DISC/DRUM 

TAO K0020 

OCA 

TAO H0003 

DCA 10 

JMS I PNTR3 

AND K0070 



•0*11 cxiRcricu - TAPE 1 



315 


J4f0 


#31 6 


1162 


•317 


7*41 


0929 


1400 


0371 


7740 


0322 


0313 


0323 


2000 


0324 


2010 


0325 


9313 


0326 


9201 


0327 


0000 


0330 


6032 


0331 


4406 


0332 


3153 


0333 


1193 


0334 


1116 


0335 


7650 


0336 


5727 


0337 


2327 


0340 


1153 


0341 


H17 


0342 


7690 


0343 


2327 


0344 


9727 


0345 


7200 


0346 


6616 


0347 


7000 


0390 


3151 


0351 


1151 


0392 


7012 


0353 


7620 


0394 


9423 


0355 


1364 


0356 


4403 


0357 


1151 


0360 


4445 


0361 


4490 


0362 


7402 


0363 


9362 


0364 


3062 


0365 


7200 


0366 


4145 


0367 


7330 


0370 


6155 


0371 


7200 


0372 


1376 


0373 


6165 


0374 


7200 


0375 


5209 


0376 


3161 



TEST, 



P4U0 V141 
OCA ! 

760 mo 
eu 

TAO I 
SMA SI A CU 

JMP ,-7 
IS! 

ISZ 10 

JHP .-12 
JMP START*! 


KCC 

JMI I PNTR4 
OCA CHAR 
TAO CHAR 
TAO H0316 
SNA CLA 
JMP I TEST 
!SI TEST 
TAO CHAR 
TAO M0331 
SNA CU 
IS2 TEST 
JMP I TEST 



24-MAR-71 



f»lf 



PAGC 1-9 



/N-N07 
/YES 

/NO, INCREMENT 



/Y-YES? 

/yes, increment 
/then exit 



'JJOCESS -POTENTIAL NON-EXISTANT DISC ERROR 
NQuISC* CLA 



OEAC 

NOP 

OCA DOSTAT 

TAD OOSTAT 

RTR 

SNL CLA 

JMP I PNTR6 

TAO PME11A 

JMS I PNTR1 

TAO DOSTAT 

JMS I PNTR24 

JMS I PNTR33 
HLT 

JMP .-1 
PMEHA, MESSI1 
/338 DISPLAY STARTER ROUTINE 
0IS338, CLA 
6145 

CLA CLL CML RAR 
6155 
CLA 

TAD ,*4 
6165 
CLA 
JMP STARTS 



/READ DISC STATUS 



/NON-EXISTANT OlSC ERROR? 
/NO#EXIT 

/yes, type out header 
/type out status word 

/CR-LF 
/STQP 

/NON-RECOVERABLE ERROR-RESTART 



<f £1 DISPLAY INITIAL CONDITIONS TO | 
/SET AC TO 4000 

/CLEAR BREAK FIELD REGISTER 

i. C SIn S I A J TING A00RE: SS OF 338 PROGRAM 
/LUAQ UAC 



/O*01 Ext-wIMR - TAPE 1 



PALIS Vi«t 



24-MAR-71 



*U* 



PAflC 1-6 



04ff «40ff 

/DISC OR DRUM EXERCISER 



0400 


7200 


DOEXCft* CLA 






0401 


6601 


6601 


/CLEAR If AND QONE 


0402 


4133 


TAD 


SKIP 




0403 


3407 


OCA 


I PNTR» 




0404 


7604 


IAS 






0405 


0135 


AND 


K0010 




0406 


7640 


S2A 


CLA 


/SUPPRESS OlSK OR DRUM? 


0407 


5423 


JMP 


I PNTR6 


/Y£S# TXJT 


0410 


7604 


LAS 






0411 


0104 


AND 


K0200 




0412 


7640 


SiA 


CLA 


/BIT 4 SCT1 


0413 


5369 


JMP 


OOLOOP 


/YES 


0414 


4335 


JMS 


OOSAVE 


/SAVE PI STUFF 


0415 


6001 


ION 






0416 


4105 


TAD 


K7200 




041? 


3015 


OCA 


15 




0480 


4114 


TAD 


BUFF3 




04R1 


3014 


OCA 


14 




0422 


4230 


TAD 


,*6 




0483 


4082 


TAO 


DOFELO 




0424 


3226 


OCA 


.♦2 




0423 


4424 


JMS 


I PNfR7 




0426 


6201 


CDF 






0427 


3444 


OCA 


I 14 


/STORE DATA IN OUT*U 


0430 ' 


6201 


cor 






0431 


3&15 


ise 


15 


/DONE 


0432 


8225 


JMP 


.-5 


/NO 


0433 


6002 


ior 






0434 


4347 


JMS 


DDREST 


/RESTORE PI STUFF 


0435 


9235 


DDRITE, JMP 


• 


' /WRITE DATA ONTO DISC OR 0RU 


0436 


6601 


6603 




/CLEAR FLAGS 


0437 


7604 


LAS 






0440 


0135 


AND 


K0010 - 




0441 


7640 


SZA 


CLA 


/SUPPRESS DISC OR DRUM? 


0442 


5423 


JMP 


I PNTR6 


/YES, EXIT 


0443 


5243 


DOREAD* JMP 


, 


/READ DATA FROM DISC OR DRUM 


0444 


6601 


6601 




/CLEAR FLAGS 


0445 


4335 


JMS 


"ddsave 


/SAVE PI STUFF 


0446 


6001 


ION 




/TURN ON INTERRUPT 


0447 


H14 


TAD 


BUFF3 


/OUTPUT 8UFFER 


0450 


3014 


DCA 


14 




0451 


4113 


TAO 


BUFF6 


/INPUT BUFFER 


0452 


3015 


DCA 


15 




0453 


1105 


TAD 


K7200 


/COUNT 


0494 


3174 


OCA 


DDCNTR 




0455 


1264 


TAD 


.+7 




0456 


1022 


TAD 


DDFELD 




0457 


3260 


DCA 


, + ,t 




1460 


6201 


cor 






0461 


1414 


TAD 


I 14 


/COMPARE DATA OUT WITH DATA 



/OMia ext -iie» . tape t 



PAU0 V14J 



24-HAR-71 



#119 



PACE 1-7 



04*2 


7041 


•463 


1415 


04*4 


6201 


04*5 


7440 


04*6 


4425 


04*7 


1174 


0470 


9260 


0471 


7604 


0472 


7010 


0473 


7630 


0474 


9305 


0475 


4424 


0476 


0123 


0477 


3»22 


0500 


1162 


0501 


7041 


0502 


1022 


0503 


7740 


0504 


9275 


0505 


6002 


0506 


4347 


0507 


9200 



cu 

TAO I 15 

cor 

S2A 

JMS 1 PNTRI 

IS? DDCNTft 

JHP .-10 

LAS 

RAR 

S2L CLA 



JMP .♦!! 
JMS I PNTR7 

AND K0070 

OCA ODFELO 

TAD FELO 

CIA 

TAO ODFElD 

SMA S2A CLA 

JMP .-7 

I OF 

JMS DDREST 

JMP DDEXER 



/60007 

/NO, OATA ERROR 

/DONE? 

/NO 



/CHANCE MEMORY FIELD* 



/NO 
/YES 



/RESTORE PI STUFF 



/RM08 DRUM EXERCISER SETUP ROUTINE 



0510 


1315 


RM08EX, TAD RM08RI 


0511 


3235 


OCA DDRITE 


0512 


1^16 


TAD RM08RE 


0513 


3243 


OCA ODREAO 


0514 


5200 


JMP OOEXER 


0515 


4430 


RM08RI, JMS I PNTRH 


0516 


4431 


RM08RE# JMS I PNTR12 

/RF08 DISC EXERCISER SETUP ROUTINE 


0517 


1324 


RF08EXp TAO RF08RI 


0520 


3235 


DCA DDRITE 


0521 


1325 


TAD RF08RE 


0522 


3243 


DCA ODREAD 


0523 


5200 


JMP DDEXER 


0524 


4426 


RF08RI, JMS I PNTR9 


0525 


4427 


RF08RE, JMS I PNTR10 

/DF32 DISC EXERCISER SETUP ROUTINE 


0326 


1333 


DF32EX, TAO DF32RI 


0527 


3235 


DCA DDRITE 


0530 


1334 


TAD DF32RE 


0531 


3243 


DCA DDREAD 


0532 


£200 


JMP OOEXER 


0533 


4433 


DF32RI, JMS I PNTR14 


0534 


4434 


0F32RE. JMS I PNTR15 



/8*fi EXERCISER - TAPE 1 



PALM Vl«l 



24-MAR-71 



9119 



pa&c x-a 



/DISC-OHUM SAVE SU8R0UTINE 



0535 


0000 


DOS AVE. 









0996 


U44 




TAD 


AC 


/SAVE AC 


0537 


3361 




OCA 


DDAC 




0540 


1145 




TAD 


LINK 


/LINK 


0541 


3362 




OCA 


DDL INK 




0542 


1456 




TAO 


I PNTR40 


/MEMORY PJELD 


0543 


3363 




OCA 


DDIB 




0544 


1000 




TAO 





/AND LOC 


0545 


3364 




OCA 


OOPC 




0546 


i?35 




JM* 


I DDSAVE 








/0JSC-ORUM RESTORE SUBROUTINE 


0547 


0000 


ODREST* 









0550 


1361 




TAD 


DDAC 


/RESTORE SAVED AC 


0551 


3144 




OCA 


AC 




0552 


1362 




TAO 


DDL INK 


/LINK 


0553 


3145 




OCA 


LINK 




0554 


1363 




TAO 


DOIB 


/MEMORY HELD 


0555 


3456 




DCA 


I PNTR40 




0556 


1364 




TAD 


DDPC 


/AND LOC 


0557 


3000 




DCA 







0560 


5747 




JMP 


I DDREST 




0561 


0000 


DDAC, 









0562 


0000 


PDLINK. 









0563 


0000 


DDIS, 









0544 


0000 


DDPC, 













/DISC-DRUM LOOP ROUTINE 




0565 


7604 


DDLOOP* 


LAS 






0546 


0132 




AND 


K0100 




0547 


7640 




S2A 


CLA 


/LOOP ON READ? 


0570 


5373 




JMP 


,♦3 


/NO, WRITE 


0571 


1243 




TAD 


DDREAD 


/YES, READ 


0572 


74J0 




SKP 






0573 


1235 




TAD 


DDRITE 




0574 


3375 




DCA 


.♦1 




0575 


7402 




HLT 




/JMS INSTRUCTION 


0576 


5200 




JMP 


DDEXER 





IS STORED HERE 



0600 
0601 
0602 
£603 
0604 
0605 
0606 
0607 



0600 



7200 
3175 
1376 
6766 
1163 
3435 
5607 
0202 



»600 

/DECTAPE STARTER ROUTINE 

DECTAP, CLA 

DCA LOOK 

TAD K0604 

DTLA 

TAO DTPNTR 

OCA I PNTR16 

JMP I ,*i 

SURT*2 



/?£ro block specified 

/load "a" with m 60#reverse.m0ve#enableicll 
/set up return from p,i, 



/©*•! EXERCISER - TAPE 1 



pah* mi 



84-HAR-?! 



*T19 



PACf '!** 



/MAGTAPE STARTER ROUTINE 



0610 


7200 


MAGTAP. 


CLA 


06X1 


3150 




DCA RECORD 


0612 


1110 




TAO K0014 


0613 


6711 




mtcr 


0614 


7482 


MTHLT1, 


WUT 


0615 


#716 




MTUC 


0616 


6721 




MTTR 


0617 


7402 


MTHUT2. 


MLT 


0620 


7200 




CLA 


0621 


6722 




MTCO 


0622 


1164 




TAO MTPNTR 


0623 


3437 




OCA I PNTR40 


0624 


5625 




JMP I .*1 


0625 


0203 




START+3 



/CLEAR RECORD COUNT 

/SKIP IF MAC TAPE CONTROL READY 

/LOAD COMMAND REGISTER WITH "REW1NO, ENA8LE" 
/SKIP IF MAC TAPE UNIT READY 



/CO 



0626 


0204 


0627 


7201 


0630 


6624 


0631 


1114 


0632 


6605 


0633 


U41 


0634 


6615 


0635 


il65 


0636 


3432 


0637 


U05 


0640 


3704 


0641 


1705 


0642 


3703 


0643 


5626 


0644 


7244 


0645 


3475 


0646 


H14 


0647 


3476 


0650 


1137 


0651 


6615 


0652 


7200 


0693 


U40 


0694 


6605 


0655 


1166 


0656 


3432 


0657 


1306 


0660 


3704 


0661 


5241 



/RM08 DRUM STARTER ROUTINE 
RM08, 



START+4 

CLA IAC 

DRFS 

TAD BUFFS 

DRCW 

TAD DRUMAD 

DRTS 

TAD RM08PR 

DCA I PNTR13 

TAD K7200 

DCA I PNTR46 

TAD I. PNTR47 

DCA I PNTR45 

JMP I RM08-1 



/DF32 DISC STARTER ROUTINE 
DF32, 



/LOAD SECTOR COUNTER TO % 
/LOAD CORE ADDRESSi WRITE 
/LOAD DRUM ADDRESSi INITIATE XFER 



CLA CMA RAL 

DCA I K7750 

TAD BUFF3 

DCA I K7754 

TAO DISCEA 

DEAL 

CLA 

TAD DISCAD 

DMAW 

TAD 0F32PR 

DCA I PNTR13 

TAD JMPCON 

DCA I PNTR46 

JMP RH08*12 



/SET UP W,C. 
/SET \)P C.A. 
/LOAD CONTROL WITH DISC EXTENDED ADDRESS 

/LOAD DISC ADDRESS AND WRjTg 



/c*fi t.._ xistn - tape t 



/srae 



PALIS Vl*l 24-MAR-71 
DISC STARTCR ROUTINE 



• 119 



PAfci 1-10 



9662 


7244 


RF00, 


CIA CM A ft At 


0663 


3475 




OCA I K7750 


0664 


1114 




TAO BUFF3 


0665 


3476 




OCA I K7751 


0666 


1143 




TAD INTERN 


0667 


6615 




OIML 


0670 


1142 




TAD TRACK 


0671 


6643 




DXAL 


0672 


1140 




TAD 01 SCAD 


0673 


6605 




OMAW 


0674 


1167 




TAD RF08PR 


0675 


3432 




OCA 1 PNTR13 


0676 


1133 




TAO SKIP 


0677 


3703 




OCA I PNTR45 


0700 


1705 




TAO I PNTR47 


0701 


3704 




OCA I PNTR46 


0702 


5626 




JMP I RM08-1 


0703 


2626 


PNTR45# 


EXIT-2 


0704 


2627 


PNTR46, 


EXJT-1 


0705 


2634 


PNTR47, 


EXJY-4 



/SET UP WC 

/SET UP CA 

/SET UP INTERRUPT ENABLES 

/LOAD DISC EXTENDED ADDRESS 
/LOAD DISC ADORESS AND WRITE 

/SET UP SKIP CHAIN 

/RETURN TO START+4 



0706 9461 



JMPCON* JMP I PNTR48 



/0F32 DISC WAIT FOR FLAG AND NO ERRORS SUBROUTINE 



0707 


0000 


DF32WT, 




•0710 


4432 


JMS I PNTR13 


/WAIT FOR DISC FLAG 


0711 


6621 


DFSE 


/ANY ERRORS? 


0712 


7410 


SKP 


/YES 


0713 


9707 


JMP I DF32WT 


/NO 


0714 


7604 


LAS 




0715 


7006 


RTL 




0716 


7510 


SPA 


/PRINT ERRORS? 


0717 


5331 


JMP HALT4»8 


/NO 


0720 


7200 


CLA 




0721 


6616 


DEAC 


/READ STATUS 


0722 


7000 


NOP 




0723 


3151 


DCA DDSTAT 




0724 


1375 


TAD PMES11 




0725 


4403 


JMS I PNTR1 


/TYPE OUT HEADER 


0726 


1151 


TAD DDSTAT 




0727 


4445 


JMS I PNTR24 


/TYPE OUT STATUS WORD 


0730 


4450 


JMS 1 PNTR33 


/CRtF 


0731 


7604 


LAS 




0732 


7700 


SMA CLA 


/HALT ON ERROR? 


2733 


7402 


HALT4, HLT 


/YES 


0734 


5707 


JMP I DF32WT 


/EXIT 



0735 0000 



/DF32 DISC WRITE SUBROUTINE 
DF32WR. 



0*t! i ^CUCA . , kH . , A ., vi4l j..,,^,, , #lf pm tmS% . 



•?»•■ 720B - to A 

•?37 UB5 •*© * 200 

0740 3475 QC4 j ^7T5§ 

0741 XH4 t A o bu^b 



•st 1 ' gp 



0742 1476 oc* ! *^75t s* * j* • « 

Jiff *!?? J*; OO'E.O /CC*8I*e"c s- C0»C -CMORv r ItLD 

jJJt 72f0 l[l L /4NQ '"ANSF^ To CISC CONTROL 

0747 1140 TA0 qiscaO 

Vil\ Mil 0M i w ., ' L °*° DISC *so*ess and wnjTe 

JJJ? J??i or9r '*** £*«orb 

JZJJ !;?! J«! 9»"32WR*i >*CS, REPCA? roNerton 

B7f4 3735 JMP j orsa-wn /exj? 

/Of 32 DISC READ SUBROUTINE 

«7§5 0000 0F32RO. 

0756 7200 cu 

0757 1105 tao K72I0 

!I!f ??!! 0CA * * 77M /SET ^ «c 

* 7 *1 H13 TAD BUEFB 

JZJ5 3 !IJ 0CA ' K77 « /SET UP C A 

S 7 ,*? JJjf Jfg 30FE1.0 ■ /20-MB : M| D'S( -P| MfNORv rjrie 

0766 7200 et.* 

, » 7 1140 * A0 oisCAO 

1*11 i?!? J "f ° r32WT /NAJT f P CISC EtAG 

;.,f ->-2 jMP or3 ^D*l /YES/ REPE*' '"UMflMON 

* 4 9 « W MR ] DF320O /EX 7" 

2^75 10 6? RMEBll. HESSll 

0"»7«. 0{ ,0 4 X0604. 0604 /Gf:. o^vre*-: *G'VE. rN*8 u £ 

/OM01 - "'ARC? 

1000 *i000 

/OECTAPE SEARCH HOU^INE 

1000 0000 SEARCH 
1201 1^46 

l JIJ *\ll 5C * * K77S * /SEr y* BLOCK Number To g e to FOUND 

1"J J 3 " , A0 K0614 / ^aRCh, NOR^ REV, ENABLE' 

i004 6 '6b ^ T L* /i run * 

5.00 "5 «'*74 

1006 i«3S jMS • P*?Ri6 /ka'" • ■■ i- Of-^APF *■ AS 

100- ft'"*? - -- " ~* 

1010 7006 

1011 7700 

1012 52i6 
10i3 13^4 
10iA ft A* 
J015 *#0e 



TAO FOUND*! 




OCA I K77S5 


/SEr ur 


*AO K0614 


/ i>t A R C H 


'; T LA 


/lOAD / 


D^LB 


,■■ C L E 4 h « 


JMS ' P*?Rlft 


/ 1« A ' ; '' 


OTRR 


>R(v.a : ': £- 


«% 




SWA " , .. 


■■j ;'''■ f ''■ ;»' ■ 


u^R -■• 




V AC - Vi "^«f 


'••■?» ' ■■> ; 


- ■ ' tr > 


/AWOw'NO 


- ■ l - hi SCARCH*6 





/D*§1 EXERCISER - TAPE 1 



PAL1& Vi*l 



24-HAR-71 



•119 



PACC 1-12 



1016 


6772 


1017 


7700 


1028 


9223 


1021 


4307 


1022 


9203 


1023 


4761 


1024 


7006 


102$ 


7006 


1026 


7200 


1027 


1349 


1030 


7041 


1031 


1179 


1032 


7490 


1033 


9243 


1034 


7041 


103$ 


7420 


1036 


1352 


1037 


7620 


1040 


1103 


1041 


6764 


1042. 


1206 


1043 


7620 


1044 


9241 


1045 


6764 


1046 


5600 



LQC8ED 



DT»B 
SNA CIA 
JMP ,*3 

JMS OTKAIT 

JMP SEARCH+3 

OTRA 

RTl 

RTL 

CLA 

TAO FOUND 

CIA 

TAO LOOK 

SNA 

JMP L0C8E0 

CIA 

SNL 

TAO K0002 

SNL CLA 

TAD K0400 

OTXA 

JMf» 5EARCH*6 

SNL CCA 

JMP .-3 

DTXA 

JMP I SEARCH 



/READ STATUS 8 

/DECTAPC ERROR 

/NO 

/YES, STOP TRANSPORT* ETC 

/TRY SEARCHING AGAIN 

/REAO A 

/MOVE DIRECTION 

/BIT INTO LINK 

/SET BLOCK NUMBER FOUND 



/CURRENT BLOCK* 

/YES. CHECK 01 RECTI ON 

/NO, TAKE 2»S COMPLEMENT 

/LINK IS 1 IF BKWD AND NOT AT OR LOWER THAN BLOCK 

/ADD TWO TO ENABLE TURN AROUND 

/TURN AROUND (3 BEYOND)? 

/YES 

/CLEAR TLA6 

/WAIT FOR NEXT FLAG 

/FOUND BLOCK FORWARD? 

/NO 

/YES, CLEAR FLAGS 

/EXIT 



1047 
1090 

1051 
1052 
1053 
1054 
1055 
1056 
1057 
1060 
1061 
1062 
1063 
1064 
1065 
1066 

1067 
1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 



4200 
4337 
5250 

1020 
6774 
1350 
6764 
1105 
3501 
1107 
3502 
4307 
4337 
5250 
5647 

0000 
6200 
4337 
5270 
1020 
6774 
1351 
6/64 



/DECTAPE READ SUBROUTINE 

OTREAD, 

JMS SEARCH 

JMS DTERR 

JMP ,~2 

TAD DTFELD 

DTLB 

TAD K0130 

OTXA 

TAD K7200 

DCA I K7754 

TAD BUFF4 

DCA I K7755 

JMS DTWAIT 

JMS DTERR 

JMP DTREAD*1 

JMP I DTREAD 
/DECTAPE WRJTE SUBROUTINE 
DTRITE, 

JMS SEARCH 

JMS DTERR 

JNIP ,-2 

TAD DTFELO 

DTLB 

TAD K0190 

DTXA 

TAD K7200 



/SEARCH OUT BLOCK 

/LOAD MEMORY FIELD REGISTER 

/CHANGE FROM SEARCH TO READ DATA CONT 

/SET UP WC 

/SET UP CA 

/WAJT FOR DECTAPE FLAG 

/ERRORS? 

/YES, REPEAT FUNCTION 

/EXIT 
E 

/SEARCH OUT BLOCK 

/LOAD MEMORY FIELD REGISTOR 

/CHANGE FROH SEARCH TO WRITE DATA CONT 



/8»fl t. <C!IC« - T AP£ 1 



fault vl*i 



.*•>■■ ... . i < 

'/■'• '-*■ £. * " 



f?r* 


' K7?M 


-in 


«#l,.u> »•' ;j 


..' » 


••'. >y5*> 



?.*' 


•*jc»7* 


/$* 


"• U P 


HC 




<J- 






■ H0*»; 








* .i ; ■ ■'■**■/. 






/f'-fO',- •** TO Hi'*. F0« BCSTaPE a*G AND KC ERROit 
/L» ■«:'■« TRANSFGR7 STOPPED 



f?w.-" f / 



fej§ 






i-M'L 



, v i n r « '!■ & » 



1 ;>>•*.. 



/NO 



*"* ":.":$5RS? 



.Dif 






us: 



PNTR0? 



r;..».- ro- 



1137 


9S3fJ 


dte?.;... 


lit:- 3 


7.- 3 ■ ; 




1 ?. «' : ; . 


: . " • 2 




i. i * £ 


* ~>li 




* < ". -f 


3-?-'i7 




1 '■ >i 5 


^c;o 


■ '. !<\.- . 


il#a 


^,; ■• 


■ >.;> ,'■ i . 


•j * 5fc ; 


y j.<<«s 


■- ■' '•■ V 




$ .' Vii 


:'.-'• v.l 


1\S2 


8 S 3 2 


*&*'"£'.> 


3.193 


mm 


K000O, 



i-i .\ 



^ D*€W:? 



/OH01 EXERCISER • TAPE 1 



pali0 vi4t 



24 -MA A- 71 



9U9 



PA6C 1-1* 



1134 


§600 


K0600, 


0600 


1155 


0614 


K0614, 


0614 


1156 


8403 


MCSS16. 


2403 


1157 


6570 




6570 


11 #6 


4004 




4004 


11*1 


0124 




0124 


11*2 


0140 




0140 


11*3 


0522 




0522 


11*4 


2217 




2217 


1165 


2240 




2240 


1166 


1116 




1U6 


1167 


4002 




4000 


1170 


0116 




0116 


1171 


1340 




1340 


1172 


4000 




4000 



/REVERSE, 60 

/SEARCH, NORMAL, REVERSE, ENABLE 

/T»C 

/5»* 

/SP#D 

/A»T 

/A.SP 

/E#R 

/R»0 

/R.SP 

/I»N 

/SP.8 

/A»N 

/K»SP 

/SP.END 



1200 



•1200 

/MAGTAPE READ SUBROUTINE 



1200 

1201 
1202 
1203 
1204 
1205 
1206 
1207 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 



4240 
4436 
1356 
6716 

7200 
1105 
3*77 

1111 
3500 

1021 
6722 
4266 
4255 

5201 
5600 



MTREAD* 



JMS REWIND 

JMS I PNTR17 

TAD K0626 

MTLC 

CLA 

TAO K7200 

DCA I K7752 

TAO BUFF5 

DCA I K7753 

TAO MTFELO 

MTGQ 

JMS MTWAIT 

JMS MTERR 

JMP MTREAD*! 

JMP I MTREAD 



/REWIND TAPE 

/SPACE TO BEGINNING OF RE0ORO 

/LOAD CM WITH "0D0»7CH, READ, ENABLE* 800" AND CLEAR FLAGS 



/SET UP WC 

/SET UP CA 

/LOAD EXTENDED FIELO REGISTER, GO 

/WAIT FOR MT FLAG AND NO ERRORS 

/ERRORS? 

/YES. REPEAT FUNCTION 

/NO, EXIT 



1220 


0000 


1221 


4240 


1222 


4436 


1223 


1355 


1224 


6716 


1225 


7200 


1226 


1105 


1227 


3477 


1230 


1112 


1231 


3500 


1232 


1021 


1233 


6722 


1234 


62&6 


1235 


4235 


1236 


S221 



/MAGTAPE READ-COMPARE SUBROUTINE 
RDCOMPi 



JMS REWIND 
JMS ! PNTR17 
TAD K0636 

MTLC 

CLA 

TAD K7200 

DCA I K7752 

TAD BUFF2 

DCA 1 K77§3 

TAO MTFELD 

MTGO 

JMS MTWAIT 

JMS MTERR 

JMP RDCOMPH 



/REWIND TAPE 

/SPACE TO BEGINNING OF RECORD 

/LOAD CM WITH "GDD.7CH,R0 COMP, ENABLE800" AND CLEAR FLAGS 



/SET UP WC 

/SET UP CA 

/LOAD EXTENDED FIELD REGISTER* GO 

/WAIT FOR MT FLAG AND NO ERRORS 

/ERRORS? 

/YES, REPEAT FUNCTION 



/D»§1 E^ CffCR - TAPE i 
1237 562f 



WL.10. ViH. 
JMP I RDCQKP 



24-MAft*U 
/NO# EXIT 



• tlf 



FACE 1-15 



/MAGTAPE REWIND SUBROUTINE (ACTUALLY SPACE REVERSE) 



1240 


0000 


1241 


1254 


1242 


*7U 


1243 


7200 


1244 


(1722 


1245 


J477 


1246 


4266 


1247 


6706 


1250 


7006 


1291 


7700 


1292 


5241 


1253 


5*40 


1254 


0676 



REWIND, 



K0676, 



TAO K0676 

MTLC 

CLA 

HT60 

DCA I K7752 

JH8 HTWAIT 

NTRS 

RTL 

SNA CLA 

JMP REWJNQ*1 

JMP I REWIND 

0676 



/LOAD CM WITH "000»?CH a SPACE REVERSE*ENABlE»800» AND CLEAR FLAGS 



/SET GO 
/SET V9 W.C. 
/WAIT FOR HT FLAG 
/READ STATUS 

/BOT? 

/NO, TRY AGAIN 

/YES, EXIT 

/ODD, 7CM, SPACE REVERSE, ENABLE. 800 



/MAG TAPE ERROR ROUTINE 



1295 


0000 


MTERR, 







1296 


4706 




MTRS 


/READ STATUS 


1257 


7500 




SMA 


/ERRORS? 


1260 


9263 




JMP »*3 


/NO 


1261 


0136 




ANO K1000 


/YES 


1262 


7640 




SZA CLA 


/BOT? 


1263 


3255 




ISZ MTERR 


/YES, NO ERROR 


1264 


7200 




CLA 




1265 


5655 




JMP I MTERR 








/SUBROUTINE TO WAIT I 


"OR MAGTAPE FLAG AND NO ER 






/EXIT 


WITH TRANSPORT 


STOPPING 


1266 


0000 


MTWAIT 


, 




1267 


4437 




JMS I PNTR18 


/WAIT FOR MAGTAPg FLAG 


1270 


4255 




JMS MTERR 


/READ MAGTAPE STATUS 


1271 


74J0 




SKP 


/ERRORS? 


1272 


9312 




JMP HALT2*2 


/NO 


1273 


7604 




LAS 




1274 


7006 




RTL 




1275 


7710 




SPA CLA 


/PRINT ERRORS? 


1276 


9306 




JMP HALT2-2 


/NO 


1277 


6706 




MTRS 




1300 


3147 




DCA MTSTAT 




1301 


1326 




TAO PMES13 




1302 


4403 




JMS I PNTR1 


/TYPE OUT HEADER 


1303 


1147 




TAD MTSTAT 




1304 


4445 




JMS I PNTR24 


/TYPE OUT STATUS WORD 


1305 


4450 




JMS I PNTR33 


/CRLF 


1306 


7604 




LAS 




1307 


7700 




SMA CLA 


/HALT ON ERROR? 


1310 


7402 


HAlTg, 


MLT 


/YES 



/DM01 EXERCISER - TAPE 1 



mi* vin 



24-MAR-71 



*u* pas* i*ia 



1311 
1312 

1313 

1314 
1315 

1316 

1317 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
1327 
1330 



9666 
*h2 
4727 
6001 
6721 
§315 
6082 
4730 
9666 
0000 



0000 



3106 
2132 

2144 



OTAC. 

OTLINK. 

DTIB. 

OTPC. 

FMES13, 

PNTR43, 

PNTR44, 



JMP I MTWJUT 

MTAF 

JM5 I PNTR43 

TON 

MTTR 

JMP ,~1 

tor 

JMS I PNTR44 

JMP 1 MTWAIT 









MESS13 

MTSAVE 

MTREST 



/CLEAR ft ASS 



/WAJT FOR 

/TAPE TRANSPORT READY 



1331 
1332 
1333 
1334 
1335 
1336 
1337 
1340 
1341 
1342 



H-00B 

1144 
3322 
1145 

3323 
1456 
3324 
1000 
3325 



/DECTAPE SAVE SUBROTINE 



DTSAVE, 





TAD AC 
DCA OTAC 
TAO LINK 
DCA DTLINX 
TAO I PNTR40 
DCA DTIB 
TAD 
DCA OTPC 
JMP I OTSAVE 



/SAVE AC 
/LINK 

/MEMORY FIELD 
/AND LOC 



1343 
1344 
1345 
1346 
1347 
1350 
1351 
1352 
1353 
1354 

1355 
1356 
1397 
1360 
1361 
1362 
1363 
1364 
1365 
1366 
1367 
1370 



0000 
1322 
3144 
1323 
3145 
1324 
3456 
1325 
3000 
5743 

0636 
0626 

04H 
2303 
4017 
2240 

0422 
2515 
4004 
0124 

0140 



/DECTAPE RESTORE SUBROUTINE 
DTREST, 



K0636, 
K0626, 
MESS17 



TAD DTAC 
OCA AC 

TAD DTLINK 
DCA LINK 
TAO DTIB 
DCA I PNTR40 
TAO DTPC 
DCA 
JMP I DTREST 

0636 
0626 
0411 
2303 
4017 
2240 
0422 
2515 



0124 
0140 

0522 



/RESTORE SAVED AC 
/LINK 

/MEMORY FIELD 
/AND LOC 



/ODD, 
/ODD» 



7CH READ COMPARE, ENABLE* 
7CH, READ, ENABLE, 800 



/D 
/S 



/SP.O 



/R 
/D 
/U 



SP 



M 



/SP,D 
/A 
/A 
/£ 



/0M01 EX .CISCR 


- TAPE 1 ■ 


PAL10 


VI 41 


24~KAR~7i 


1371 


2*17 


2217 




/K»0 


1372 


2240 


2240 




/*»SP 


1373 


111* 


1116 




/!iN 


1374 


♦002 


4002 




/SP,8 


1375 


0116 


0116 




/A.N 


1376 


1340 


1340 




/K#SP 


1377 


4000 


4000 




/SP,END 



9 219 
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illl 



•1400 

/RM00 DRUM READ SUBROUTINE 



1400 
1401 
1402 
1403 
1404 
1405 
1406 
1407 
1410 
1411 
1412 
1413 
1414 
1415 



7200 

1*22 
1122 
6624 
7201 
1113 
6603 
1141 
6615 
4234 
6621 
5201 
5600 



RM06RO, 



TAO ODFELO 

TAD K3000 

DRFS 

CLA IAC 

TAO BUFF6 

ORCJR 

TAP DRUMAO 

ORTS 

JMS DRUMWT 

DRSE 

JMP RM08RD*1 

JMP I RM08RO 



/COMBINE MEMORY FIELD 
/AND NUMBER OF SECTORS 
/TO ORUM CONTROL 



/LOAD CORE MEMORY ADDRESS, READ 

/LOAD ORUM ADDRESS REGISTER, INITIATE XFER 

/WAIT FOR DONE FLAG AND NO ERRORS 

/ERRORS? 

/YES, REPEAT XF£R 

/NO 



/RM08 DRUM WRITE SUBROUTINE 



1416 


0000 


RM0SWR, 


1417 


7200 


CLA 


1420 


1022 


TAD DOFELO 


1421 


1122 


TAD K3000 


1422 


6624 


DRFS 


1423 


7201 


CLA IAC 


1424 


U14 


TAD 8UFF3 


1425 


6605 


ORCW 


1426 


1141 


TAD DRUMAD 


1427 


6615 


DRTS 


1430 


4234 


JMS DRUMWT 


1431 


6621 


DRSE 


1432 


9217 


JMP RM08WR*! 


1433 


5616 


JMP I RM0SWR 



/COMBINE MEMORY FIELD 
/AND NUMBER OF SECTORS 
/TO CONTROL 



/LOAD CORE MEMORY ADDRESS, WRITE 

/LOAD DRUM ADDRESS REGISTER, INITIATE XFER 

/WAIT FOR DRUM FLAG AND NO ERRORS 

/ERRORS? 

/YES, REPEAT XFER 

/NO 



1434 


0000 


1435 


4432 


1436 


$621 


1437 


7410 


1440 


5634 


1441 


7604 


1442 


7006 



/DRUM WAIT FOR FLAG AND NO ERRORS SUBROUTINE 

DRUMWT, 

JMS I PNTR13 /WAIT FOR DRUM FLAG 

DRSE /ANY ERRORS 

SKP 

JMP I DRUMWT /NO 

LA8 /YES, PRINT ERRORS? 

RTL 



/C03. E*£*C?$£3 • TAPE 1 PMiv Vin v^-M Ai 



''i 9 ?, .« -^AGC i-U 



ia « 3 ; *** spa /prut errors* 

1*44 9i»55 ,;%tP WALTJ-2"- 

1*43 7W ' CL* 

iM J * 6 !* C«*£r /READ STATUS 

14*7 3131 OCA DOS TAT 

1453 1363 fAO ptfESi4 

JtJi ??? 3 JHS ! FNm /TYp * OUT HEADER 

i*« usi TAO 005TAT 

1*33 4*45 jws I PNT»24 /TYPE OUT ERROR STATUS 

1424 4430 jftg t p NT «33 /C R tJ r 

*435 7?»S4 L AS 

14 J5 J'iJ* SMA CLA /WAtT ON ERROR? 
143.' 74i32 HAUT3, HUT /YES 

14513 §634 jMf I ORtfKWT 

/RF2S DISC READ SUBROUTINE 
I^ai 0800 RF03ROf 

****2 li05 TAD K7200 

i«6» 3^75 OCA I K77SS /SET UP fcC 

14>54 Jii3 TAO SUFF6 

14*5 3476 OCA J K773t /SET UR CA 

Jt?S J??f TA ° 00F ^P /COMBINE DISC CORE MEMORY VlflQ 

1*6 7 4U3 TAD INTERS /AMO INTFRRiJPT FNABi ES 

J", 7 ? f?*? Bl ML /AND TRANSFER To DISC CONTRO} 

I * / X l ■>■ 4 «i T A r R A C ft 

14?2 $S43 QXAL /I fUn R»<SC cv-rvw^ , .■* - r, ... ■- ,• 

14/3 114kj TAO 01 SCAD 

Y'li JSS? DMAR /l0AD D * SC ADDRESS AND REAO 

-475 4321 jtfS RF08WT /WAJT FOR DISC t"LAG 

;«"'$ 6621 rSE /ANY ERRORS? 

1477 S661 j,*}p I RF0SRD /NO 

1530 SJ262 JHP RF0SRD*1 /YES, REPEAT FUNCTION 

/RF00 DISC WRITE SUBROUTINE 

1531 0008 RF08WR* 

1502 USS TAO K7200 

1503 3475 DCA I K7750 /SET UP HC 

1504 U14 TAD BUFFS 

1505 3476 DCA I K77S1 /SET UP CA 

\\\% \®\\ TA0 OOFEUO /COMBINE DISC GORE MEMORY FIELD 

1J>a7 *- 143 TAO INTERN /AND INTERRUPT ENABLES 

*j! l J ffJJ OIML /AND TRANSFER To DISC CONTROL 

15U 1142 TAD TRACK 

X X\\ fj*5 DXAL /LOAD DISC EXTENDED ADDRESS 

1313 1140 TAD DISCAD 

1514 £605 ohaw /LOAD DISC ADDRESS AMD WRITE 

..SIS 4321 jMS SF08HT /WAJT FOR DISC Ft AG 

1516 €621 DFSE /ANY ERRORS 

1517 5701 jM p j RF0g^p / N o 
1520 3302 JM p «F08WR*1 /YES 

/RF08 DISC WAIT FOR FLAG AND NO ERRORS SUBROUTINE 
/{TRANSFERS CONTROL TO *'QF32WT" \f ANY ERRORS) 



/0*ii £RC1SE* • TAPE I 



1921 


9 9»§ 


1522 


4432 


1323 


6621 


1584 


1*21 


1525 


1321 


1526 


3731 


152? 


9730 


1530 


0714 


1531 


0707 



PAL10 Vl«l 
RF00WT, 9 

jms i pntr13 

ofse 

jhp i sreewT 

TAO RF08WT 
OCA 1 .*3 
JMP I .♦! 
0F32WT *5 
0F32MT 



24-MAR-71 



ft 19 



MCC I-if 



/WAIT FOR OJSC FLAG 

/ANY ERRORS? 

/NO 

/YES 

/SAVE "PC" 

/TRANSFER CONTROL TO 

/00F32 ERROR TYPCOUT 



/MAGTAPE WRITE ROUTINE 



1532 
1533 

1534 

1535 

1536 

1537 

1540 

1541 

1542 

1543 

1544 

1545 

1546 

1547 

1550 

1551 

1552 

1553 

1554 

1555 

1556 

1557 

1560 

1561 

1562 

1563 

1564 

1565 

1566 

1567 

1570 

1571 

1572 

1573 



0000 

7200 
1364 
#716 

7200 
1105 
3477 
1112 
3500 

1021 
6722 
4447 
2150 
5352 
4440 
5333 
4441 
7410 
3?32 
4440 
4436 
7240 
1150 
3150 
9334 
3120 
0746 
2403 

6061 

4004 
0503 
2401 

2005 
7700 



MTRITE, 



PMES14, 
K0746, 

MESS02, 



CLA 

TAO K0746 

MTLC 

CLA 

TAO K7200 

OCA I K7752 

TAO BUFF2 

OCA I K77S3 

TAO MTFELO 

MT60 

JMS I PNTR32 

ise RECORD 

JMP ,*3 

JMS I PNTR19 

JMP MTRITE*! 

JMS I PNTR20 

SKP 

JMP I MTRITE 

JMS 1 PNTR19 

JMS I PNTR17 

CLA CMA 

TAO RECORD 

OCA RECORD 

JMP MTRJTE*2 

MESS14 

0746 

2403 

6061 

41 



/LOAD CM WITH "0D0.7CH.3 |N, GAP, WRITE, 000" AND CLEAR FLAGS 



2401 
2005 
7700 



/SET UP WC 
/SET UP CA 

/LOAD EXTENDED FIELO REGISTER, GO 
/WAIT FOR MT FLAG AND NO ERRORS 
/INCREMENT NUMBER OF RECORDS 

/4096 RECORDS, REWIND TAPE 
/START OVER 
/ANY ERRORS 

/NO, EXIT 

/YES, REWIND TAPE 

/SPACE FORWARD TO BEGINNING OF THIS RECORD 

/DECREMENT RECORD COUNT 

/TRY AGAIN 



/ODD, 7CH* WRITE, ENABLE, 

/T,C 

/0»l 

/SP,D 

/E»C 

/T,A 

/P»E 

/?.END 



1600 



1600 7200 

1601 6764 

1602 |133 



*1600 

/OECTAPE EXERCISER 

DTEXER, CLA 

DTXA 
TAO SKIP 



/CLEAR £f AND DTF 



/DM01 eXEKCISE* • TAPE 1 



PAL10 V14| 



24-MAR-71 



f lit 



PAGE 1-20 



1603 


3320 


1604 


7604 


1605 


0124 


1606 


7640 


1607 


9423 


1610 


4457 


1611 


6001 


1612 


U05 


1613 


3011 


1614 


1106 


1615 


3010 


1616 


1224 


1617 


1020 


1620 


3222 


1621 


4442 


1622 


6201 


1623 


3410 


1624 


6201 


1625 


2011 


1626 


0221 


1627 


1175 


1630 


l?ll 


1631 


3175 


1632 


7300 


1633 


1175 


1634 


1120 


1635 


7630 


1636 


9231 


1637 


4002 


1640 


4460 


1641 


4443 


1642 


6764 


1643 


4444 


1644 


1367 


1645 


6744 


1646 


4497 


1647 


6001 


1690 


1106 


1691 


3010 


1652 


1107 


1693 


3011 


1694 


1105 


1695 


3170 


1696 


1265 


1697 


1020 


1660 


3261 


1661 


6201 


1662 


1410 


1663 


7041 


1664 


1411 


1665 


6201 


1666 


7440 


1667 


4312 



OCA 0TDATA*6 

LAS 

ANQ K0040 

S2A CLA 

JMP I PNTR* 

JMf I PNTR41 

ION 

TAD K7200 

OCA 11 

TAD BUFFI 

OCA 10 

TAD ,*6 

TAD DTFELO 

OCA ,*2 

JM8 I PNTR21 

CDF 

OCA 1 10 

COF 

ISZ 11 

JMP .-5 

TAD LOOK 

TAD K0003A 

OCA LOOK 

CLA CLL 

TAD LOOK 

TAO M2700 

SBL CLA 
JMP .-5 
IOF 

JMS 1 PNTR42 
JMS I PNTR22 
OTXA 

JMS I PNTR23 
TAO K0004 
OTXA 
JMS 1 PNTR41 



JON 

TAO BUFFI 

OCA 10 

TAD BUFF4 

OCA 11 

TAO K7200 

OCA DTCNTR 

TAO .+7 

TAO DTFELO 

OCA ,♦! 

CDF 

TAD I 10 

CIA 

TAO I 11 

COF 

SZA 

JMS DTOATA 



/SUPPRESS DECTAPC? 
/YES, EXJT 
/SAVE PI STUFF 



/STORE DATA IN OUTPUT BUFFgR 

/DONE 
/NO 

/INCREMENT BLOCK BY 3 



/RESTORE PI STUFF 

/WRITE DATA ONTO OECTAPE 

/CLEAR FLAGS 

/READ DATA FROM OECTAPE 

/STOP TAPE, CLEAR ENABLE AND 

/CLEAR FLAOS 

/SAVE PI STUFF 



/TURN ON INTERRUPT 
/OUTPUT BUFFER 



/INPUT BUFFER 
/COUNT 



/COMPARE DATA OUT WITH DATA IN 



/GOOD? 

/NO, DATA ERROR 



/D»H E^CItC* • TAPE I 



PAL10 V141 



24-MAR-71 



•lit PA«« *-2i 



1670 


8170 


1671 


0261 


1672 


6002 


1673 


4460 


1674 


7604 


1675 


7010 


1676 


7630 


1677 


9200 


1700 


4442 


1701 


0123 


1702 


3020 


1703 


1162 


1704 


7041 


1705 


1020 


1706 


7740 


1707 


0300 


1710 


§200 


1711 


0003 



K0003A, 



111 

JMP 

I or 

JHS 
LAS 
RAN 
5ft 
JMP 
JHS 
AND 
OCA 
TAO 
CIA 
TAO 
SNA 
JMP 
JMP 
3 



DTCNT* 
.-10 

I PNTH42 



CLA 

OTEXER 

I PNTR21 

K0070 

DTF£tO 

FELD 

DTFELD 
S2A CLA 
.-7 
OTEXER 



/OONC7 
/NO 

/yes 

/RESTORE PJ STUFf 



/CHANGE MEMORY FiELO? 

/NO 

/YES 



/OECTAPE DATA ERROR ROUTINE 



1712 


0000 


DTOATA, 




1713 


7604 


US 




1714 


0103 


AND K0400 




1715 


7640 


SiA CLA 




1716 


1361 


JMP CHNGE1*! 




1717 


6002 


IOF 




1720 


7610 


SKP CLA 


/OR CLA 


1721 


9335 


JMP ,+14 




1722 


1366 


TAO PMES18 




1723 


4403 


JMS I PNTR1 


/TYPE OUT HEADER 


1724 


1020 


TAD OTFELO 




1725 


7110 


RAR CLL 




1726 


7012 


RTR 




1727 


4445 


JMS 1 PNTR24 


/AND DATA FIELD 


1730 


1074 


TAO PMES15 




1731 


4403 


JMS I PNTR1 


/TYPE OUT REST OF HEADER 


1732 


1105 


TAO K7200 




1733 


3320 


DCA DTOATA+6 




1734 


4450 


JMS I PNTR33 




1735 


1020 


TAD DTFELD 




1736 


1360 


TAO CHNGE1 




1737 


3340 


OCA ,♦! 




1740 


6201 


CDF 




1741 


1010 


TAO 10 


/PICK UP "GOOD" ADDRESS 


1742 


4445 


JMS I PNTR24 




1743 


1125 


TAD K0240 




1744 


4446 


JMS I PNTR25 




1745 


1571 


TAD I TEMP 


/PICK UP "GOOD" DATA 


1746 


4445 


JMS I PNTR24 




1747 


1125 


TAD K0240 




1750 


4446 


JMS I PNTR23 




1791 


1011 


TAO 11 


/PICK UP "8AD" ADDRESS 


1792 


4445 


JMS I PNTR24 





/OH01 EXERCISER - TAPE 1 PAL10 Vin 24-MAR-7* til* PA&t 1-22 

1753 1125 TAD K0240 

1754 4446 jh| l PNTR25 

1756 4445 jMS I PNTR24 

1757 4450 jMS I PNTR33 

1760 6201 CHNGE1. C0F 

1761 7604 tA 

1762 7004 HAL 

Jlii IIS! SM * CLA yHA ^.f °* ERROR? 

1764 74f2 HLT /YES 

1765 P712 jn p J DTOATA 

1766 3144 PMES18, MESS16 

1767 0004 X0004, 4 /ENABLE 

1770 3215 MCSS06, 2215 /R»M 

1771 6070 6070 /0,| 

1772 4004 4004 /SP,D 

1773 2225 2 225 /R.J 

1774 1577 1577 /M#? 

1775 0000 /tm 

/DM01 - TAPE 3 

• 2000 

/MAG TAPE EXERCISER 

2000 7200 MTEXER, CLA 

SKi fi 7 i? MTAF ' CUEAR MTF AND ef 

2002 1133 TAD SKIP 

2003 3762 DCA I PNTR26 

2004 7604 LAS 

2005 0134 AND K0020 

2006 7640 S 2A CLA /SUPPRESS MAGTAPE? 

2007 5423 jMR I PNTR6 /YES, EXIT 

2010 7604 LAS 

2011 0104 AND K0200 

2012 7640 SEA CLA /BIT 4 SET? 

2013 7000 NOP /YES 

2014 4332 JMS MTSAVE /SAVE PI STUFF 

2015 6001 ION 

2016 1105 TAO K7200 

2017 3013 OCA 13 

2020 U12 TAO BUFF2 

2021 3012 DCA 12 

2022 1230 TAO .+6 

2023 1021 TAO MTFELD 

2024 3226 OCA ,*2 

2025 4763 jMS I PNTR27 

2026 6201 COF 
2227 3412 DCA I 12 ^STQRE DATA IN OUTPUT BUFFER 

2030 6201 COF 

2031 2013 i$2 13 /DONE? 

2032 5225 jHP .-5 /NO 

2033 6002 I0F 

2034 4344 jMS MTREST /RESTORE PI STUFF 



/OMfi' .'RCliER - TAPE i 



PAL10 V141 34-MAR-71 



#■»!* 



page ws 



2035 


4744 


2036 


6712 


2037 


7604 


2040 


0134 


2041 


7640 


2042 


9423 


2043 


4769 


2044 


6712 


2045 


4332 


2046 


6001 


2047 


U12 


2090 


3012 


2091 


1111 


2092 


3013 


2093 


1105 


2054 


3173 


2095 


1264 


2096 


1021 


2007 


3260 


2060 


6201 


2061 


1512 


2062 


7041 


2063 


i?i3 


2064 


#201 


2065 


7«40 


2066 


4767 


2067 


2173 


2070 


5260 


2071 


6002 


2072 


4344 


2073 


4766 


2074 


4712 


2075 


7604 


2076 


7010 


2077 


7630 


2100 


9200 


2101 


4763 


2102 


0123 


2103 


3021 


2104 


1162 


2105 


7041 


2106 


1021 


2107 


7740 


2110 


9301 


2111 


9202 



JMS I PNTR20 

MTAF 

LAS 

AND K0020 

S2A CLA 

JMP I PNTR4 

JMS I PNTR29 

MTAF 

JMS MTSAVE 

ION 

TAO BUFF2 

OCA 12 



TAO BUFF5 
OCA 13 
TAD K7200 
DCA MTCNTR 
TAO .*7 
TAO MTFELO 



.♦1 
I 12 
I 13 



OCA 

CDF 

TAO 

CIA 

TAO 

COF 

S2A 

JMS I PNTR31 

IS2 MTCNTR 

JMP .-10 

10F 

JMS MTREST 

JMS I PNTR30 

MTAF 

LAS 

RAR 

S2L CLA 

JMP MTEXER 

JMS I PNTR27 

AND K0070 

DCA MTFELO 

TAO FELO 

CIA 

TAO MTFELO 

SMA S2A CLA 

JMP ,»7 

JMP MTEXER 



/WRITE OATA ONTO MAC TAPE 
/CLEAR FLAGS 



/suppress magtape1 

/yes, exit 

/reao oata from magtape 

/clear flags 

/save pi stuff 

/turn on interrupt 

/output buffor 



/INPUT BUFFOR 
/COUNT 



/COMPARE OATA OUT WITH DATA IN 



/GOOD? 

/NO, DATA ERROR 

/DONE? 

/NO 

/YES 

/RESTORE PI STUFF 

/READ COMPARE DATA 

/CLEAR MTF AND EF 



/CHANGE MEMORY FIELD? 

/NO 

/YES 



2112 

2113 1370 

2114 6716 

2115 7240 



/MAGTAPE SPACE FORWARD SUBROUTINE 



8PCFWD, 

TAD K0666 
MTLC 
CLA CMA 



/LOAD CM WITH "ODD#?CH, SPA! 



ARD, ENABLE, 800" AND CLEAR FLAGS 



/0»fi E CISER • TAPE I PAH0 Vl*l 24-maR-7| f»i* PAGE 1-24 

2116 4150 TAO RECORD 

2117 74ff SNA 

Si!! !21? J "' ! SPcrN0 

2*21 7§4i CIA 

fHf K2 0CA * K77 * 2 /SET » p we 

2123 *722 MTC0 /SCt h Cow# 

2J5J IJJJ ** M ! J WM» /WAIT FOR MT FLAG AND NO ERRORS 

£l£ 5 JJ 4 * JM8 1 PNTR20 /ERRORS 

2126 7610 skP CLA /YES 

§127 07l2 JM p , SPcrH0 /N0 

SJ!f 2??! JMi j PMTWf /REWIND TAPE. TRY AGAIN 

2131 9313 jMP 8PCFWD*1 

/MAGTAPE SAVE SUBROUTINE 

2132 0000 MTSAVE# 

lili Hit TAD AC /SAVE *c 

2134 3396 « OCA MTAC 

2135 1145 TAD LINK /LINK 

2136 3307 OCA MTL'INK 

? i3 I iJ! 6 TA0 J PNTR40 /MEMORY FJELD 

2140 3360 OCA MTIB 

J**! IfW TAO /AND LOG 

2142 3361 OCA MTPC 

2143 9?32 JMP I MTSAVE 

/MAGTAPE RESTORE SUBROUTINE 

2144 0000 MTREST, 

2145 1356 TAO MTAC /RESTORE SAVED AC 

2146 3144 OCA AC 

liil J 3 *? TAO MTLINK /LINK 

2150 3145 OCA LINK 

219J 1360 TAO MTIB /MEMORY FIELD 

2152 3456 OCA I PNTR40 

2153 1361 TAO MTPC /AND LOC 

2154 3000 OCA 

2155 5744 JMP I MTREST 

2156 0000 MTAC, 
2197 0000 MTLINK, 

2160 0000 MTIB, 

2161 0000 MTPC, 

2162 2206 PNTR26, MT0ATA*6 

2163 2510 PNTR27, RAND2 

2164 J532 PNTR28, MTRITE 

2165 1200 PNTR29, MTREAD 

2166 1220 PNTR30, RDCOMP 

2167 2200 PNTR31, MTDATA 

2170 0666 K0666, 0666 /ODD, 7CH, SPACE FWO, ENABLE, 800 

2171 6363 MESS03, 6363 /3»3 

2172 7040 7040 /8*SP 

2173 0411 0411 /Qtl 

2174 2320 2320 /S»P 

2175 1401 1401 /L.A 

2176 3177 3177 /Y.? 



•d*h r 



"CISC* - TAPE i 

2177 war 



PAL 10 VI 41 



JM-MAR-71 
/E*»0 



• 119 



PACE 1-25 



2200 



•2200 

/MAGTAPE DATA ERROR ROUTINE 



2200 

2201 
2202 

2203 
2204 
2205 

2206 
2207 

2210 
2211 
2212 

2213 

2214 

2215 

2216 

2217 

2220 

2221 

2222 

2223 

2224 

2225 

2226 

2227 

2230 

2231 

2232 

2233 

2234 

2235 

2236 

2237 

2240 

2241 

2242 

2243 

2244 

2245 

2246 

2247 

2250 

2291 

22S2 

2253 



7604 

0103 

7640 

9247 

4002 

7610 

0223 

1396 

4403 

1021 

7110 

7012 

4445 

1074 

4403 

1105 

3206 

4450 

1021 

1246 

3226 

6201 

1012 

4445 

1125 

4446 

1*71 

4445 

1125 

4446 

1013 

4445 

1125 

4446 

1571 

4445 

4450 

6201 

7604 

7004 

7700 

7402 

5600 



MTOATA* 

LAS 
ANO 
SIA 

JMP 

I or 

SKP 
JMP 

TAO 
JMS 
TAO 
RAR 

RTR 

JMS 

TAO 

JMS 

TAO 

OCA 

JMS 

TAO 

TAO 

OCA 

COP 

TAO 

JMS 

TAD 

JMS 

TAO 

JMS 

TAO 

JMS 

TAD 

JMS 

TAO 

JMS 

TAD 

JMS 

JMS 

CDF 

LAS 

RAL 

SMA 

HIT 

JMP 



CHNGE2; 



K0400 
CLA 

CHNGC2*1 

CLA 

.♦14 

PMES16 

! PNTR1 

MTfELO 

CLL 

I PNTR24 

PMES15 

! PNTRi 

K7200 

MTDATA*6 

I PNTR33 

MTFELO 

CHNGE2 

.♦1 

12 

I PNTR24 
K0240 
I PNTR25 
I TEMP 
I PNTR24 
K0240 
I PNTR25 
13 

I PNTR24 
K0240 
I PNTR25 
I TEMP 
I PNTR24 
I PNTR33 



/OR CLA 

/TYPE OUT HEADER 

/AND OATA FIELD 

/TYRE OUT REST OF HEAOER 



CLA 

I MTOATA 



/PICK UP "GOOD*' ADDRESS 



/PICK UP "GOOD" DATA 



/PICK UP "BAD" ADDRESS 



/PICK UP "BAD" DATA 



/HALT ON ERROR? 
/YES 



2254 0000 



/INPUT FROM KEYBOAl 
INPUT, 



AN OCTAL DIGIT, SKIP IF OK 



/DHfi CROUCH - TAK 1 *AL10 V141 24-MAR-71 til* RA6CW* 

2256 3133 OCA CHAR 

IVtl !i? 3 ™° CHAR 

J2J1 J3AJ TA0 K0260 

*2J3 $273 JM R QUEST 

|2«4 U35 TAO K00XB 

22*5 77J0 S p A cu 

|2J6 5273 JM R QUEST 

2267 1153 TAO CHAR 

r 2!I! !i? f AH0KMI7-. 

2271 2254 ISI INRUT 

2272 9654 jHP I !N puT 

2273 1357 QUEST. TAO K0277 

tut nit jm? * pntrw 

ill! 2J2! JMS J PNT * 33 

2276 5654 JM p j j N p UT 

/OCTAL PRINT SUBROUTINE 

2277 0000 PRINT, 

2300 3171 D ca TEMP 

2301 1121 TAO M0004 

2302 3172 DCA TEMP1 

2303 1171 TAO TEMP 

2304 7104 R AL CLL 

2305 7004 r AL 

2306 7006 RTL 

2307 3171 CA TEMP 

2310 1171 TAD TEMP 

2311 0130 AN Q K 000 7 

2312 1360 TA0 K0260 

2313 4446 jMS I PNTR25 

2314 1171 TAD TEMP 

2315 2172 lS g TEMPI 

2316 5305 j M P ,-u 

2317 7200 CUA 

2320 5677 j M p I P ri NT 

/MESSAGE PRINT SUBROUTINE 

2321 0000 MESAGE, 

2322 3171 OCA TEMP 

2323 4450 JMS j PNTR 33 

2324 15»71 TAD I TEMP 

2325 0362 AND K7700 

2326 7450 SNA 

2327 5721 JM p j MESAGE 

2330 7H0 RAR CLL 

2331 7010 r A r 

2332 7012 RTR 

2333 7012 RT8 

2334 4344 jHS POSIT 



/OHft c _ <cise* - tape t 



PAU0 VJ«X 



24-MAR-71 



tut 



PAW 1-2? 



2335 

2336 

2337 

2340 

2341 

2342 

2343 

2344 

234$ 

2346 

2347 

2390 

2391 

2392 

2393 

2354 

2399 

2396 

2397 

2360 

2361 

2362 

2363 

2364 

2369 

2366 

2367 • 

2370 

2371 

2372 

2373 

2374 

2375 

2376 

2377 



1971 
0541 
7490 

9721 
4344 
2171 
9324 
0900 
3172 
1172 
1131 
7710 
1132 
1104 
1172 
4446 
9744 
1196 
0277 
0260 
0077 
7700 

0000 
1126 
44 46 
1127 
4446 
9763 
2403 
4970 
4015 
0107 
2401 
2005 
7700 



POSIT, 



PMES16, 

K0277, 

K0260, 

K0077, 

K7700, 

/CARRIA 

6RLF, 



MESS04, 



TAO I TEMP 

A NO K0077 

SNA 

JMP I MCSA5C 

JMS POSIT 

190 TEMP 

JMP MESAGE*3 



OCA TEMPI 

TAO TEMPI 

TAD M0040 

SPA CLA 

TAO K0100 

TAO K0200 

TAO TEMPI 

JMS I PNTR25 

JMP I POSIT 
MESS16 
277 
260 
77 

7700 
G£ RETURN-LINE TEED SUBROUTINE 


TAO K0215 
JMS I PNTR25 
TAO K0212 
JMS I PNTR25 
JMP I CRLF 
2403 
6570 
4015 
0107 
2401 
2005 
7700 



/"'?» 



/T,C 

/5»8 

/SP,M 

/A»C 

/T#A 

/p#e 

/?»END 



2400 



2400 


0000 


2401 


7200 


2402 


1242 


2403 


1227 


2404 


7640 


2405 


9215 


2406 


1231 


2407 


3227 


2410 


1230 


2411 


7104 


2412 


7430 


2413 


7001 


2414 


3230 


2415 


1230 



•2400 

/RANDOM NUMBER GENERATOR 



RANGEN* 



RANTAO. 



CLA 

TAD RANTNO 
TAO RANDEX 
S2A CLA 
JMP RANTAD 
TAO RANTBL 
OCA RANDEX 
TAO RANCON 
CLL RAL 
S1L 
IAC 

OCA RANCON 
TAD RANCON 



/OHfi 1-cWllW • TAPE i ML10 Vl«i 24-MAR-71 fU9 PAGE Wi 

2416 1*27 TAD I RANOCX 

J4J7 J6J7 oca 1 RANOEX 

2428 1243 TAO RANSAV 

2421 7010 K AW 

f«f3 822? jSf RANOCX 

2424 3243 OCA RANSAV 

2*« 1243 TAO RANSAV 

2427 2442 RANOEX. RANTNO 

2430 *S>43 RANCON, 6543 

2431 2432 RANT8L* ,*1 

2432 6543 6943 
2493 3210 3210 

2434 0769 0765 

2435 |432 5432 

2436 2107 2107 

2437 7654 7654 

2440 4381 4321 

2441 1076 107$ 

2442 5336 RANTNO. -RANTNO 

2443 0000 RANSAV* 

2444 0000 RANDA» 

2445 7200 ct,A 

2446 1306 TAO ,*40 

2447 1273 TAO ,*24 
2«50 7640 SZA CLA 

2451 5261 JMR .*10 

2452 1275 TAO ,*23 

2453 3273 OCA ,*20 

2454 1274 TAO ,*20 

2455 7104 CU RAl 

2456 7430 siL 

2457 7001 IAC 

2460 3274 OCA ,*14 

2461 1274 TAD .*13 

2462 1673 TAD I ,*11 

2463 3673 DC A I ,*10 

2464 1277 TAD .*13 

2465 7010 r A R 

2466 1673 TAD I .*5 

2467 R273 ISZ ,*4 

2470 3307 OCA ,+17 

2471 1307 TAD ,*16 

2472 5644 jHR I .-26 

2473 2&06 ,*13 

2474 6543 6543 

2475 2476 ,+1 

2476 1076 1076 

2477 7654 7654 

2500 5432 5432 

2501 3210 3210 

2502 6543 6543 



/D«il i /ClflCK • TAPC-l--- PALlf VI41 24-MAR-71 *t%t PA0C t»2» 



9593 


07*5 


07*9 




3904 


2107 


2107 




2505 


4301 


4321 




m« 


9272 


* y 




2907 


0000 







2910 


0000 


RAN02* 




2911 


7200 


CIA 




2512 


1J92 


TA0 


,♦40 


2913 


1337 


TAO 


.♦24 


2514 


7640 


S2A 


CLA 


2519 


9325 


JMP 


.♦10 


2516 


1341 


TAO 


.♦23 


251? 


3337 


OCA 


.♦20 


2920 


1340 


TAO 


.♦20 


2921 


7104 


CU ! 


RAL 


2522 


7430 


S2L 




2523 


7001 


2AC 




2924 


3340 


OCA 


.♦14 


2525 


1340 


TAO 


.♦13 


2526 


1*37 


TAO 


I »♦!! 


2527 


3737 


OCA ; 


1 .H0 


2530 


1343 


TAO , 


.♦13 


2931 


7010 


RAR 




2532 


1737 


TAO ! 


I .+5 


2533 


8337 


IS! , 


,♦4 


2534 


3353 


OCA , 


,♦17 


2935 


1333 


TAO , 


,♦16 


2536 


1710 


JMP ] 


[ .-26 


2537 


2552 


, *13 




2540 


6543 


6543 




2541 


2542 


.♦i 




2542 


6543 


6543 




2543 


0769 


0765 




2544 


2107 


2107 




2545 


4321 


4321 




2546 


1076 


1076 




2547 


7634 


7694 




2550 


9432 


5432 




2551 


3210 


3210 




2532 


5226 


• « 




2553 


0000 











/GET SUBROUTINE 


2554 


0000 


GET, 




2595 


6031 


KSF 




2556 


§395 


JMP , 


-1 


2597 


6036 


KRS 




2560 


6046 


TIS 




2561 


6041 


TSF 




2562 


P361 


JMP . 


-1 


2563 


6042 


TCP 




2564 


9754 


JMP I 


GET 


2565 


0406 


MESS07, 0406 




2566 


6362 


6362 




2967 


4004 


4004 





/0»F 
/3»2 
/SP,0 



„_.. r«r*r 'R • tAFt 1 



„ 7ff il23 

2571 •*" 

8572 •»•• 



PAL 10 

0377 




vi4i a«-M**-*x ^ 



f ,if M« !-«• 



■/!•«■ 
/C»l 

/CHO 



2600 
2601 
2602 
2603 

2604 

2605 

2606 

2607 

2610 

2611 

2612 

2613 

2614 

2615 

2616 

2617 

2620 

2621 

2622 

2623 

2624 

2625 

2626 

2627 

2630 

2631 

2632 

2633 

2634 

2635 

2636 



a600 

3144 
7004 
3145 
1234 
7104 
7006 
0123 

1966 

3234 

0031 

7410 

9230 

6771 

7<10 
0637 
6701 
7^10 
9641 
6622 

7*10 

5643 

6621 

7200 

7200 

6032 

1145 

7110 

1144 

6201 



#2600 

SCAN* 



2637 
2640 



9400 



0000 
5230 



OCA AC 

RAW 

OCA UXMK 

RIB 
RAl CLL 

AND *•■*■-■ 

TAD CHNCC3 
OCA MEMORY 

SKP 

jMP EXIT 

oTsr 

SKP 

JM p J DTFUAG 

MT0F 

SKP 

jM p i MTFLAG 

6622 

jMP I DOFUAG 

6621 

CUA 

CUA 
EXIT, KCC 

TAD LINK 
RA« CU 
TAO AC 
MEMORY. COF 
ION 
JMP 1 ^ 



/OECTAPE FUA6 RETURN 



/KEYBOARD FUG* 
/NO 

/OECTAPE FLAG? 
/MAGTAPE FLAG? 

'S"c or drum done flag? 

'55"c OR ORUM ERROR FLAG? 

Ssvresgwr - - -"' 

/RESTORE LINK * AC 

/RESTORE MEMORY FIELDS 
/TURN ON INTERRUPT 
/EXIT 



ADDRESS 



0TFL * ' V EXIT 



26*1 00^0 
2642 5230 



2643 
2644 



5230 



/EXIT TO TURN P.l. ON 
/MAGTAPE FLAG RETURN ADDRESS 

MTFUG ' %P EXIT 
/D 18C OR DRUM FLAG RETURN ADDRESS 

° 0FUG ' %R EXIT 
/TYPE SUBROUTINE 



/0*i* Crtw ,tlCR - TAPE 1 



PAitt Vl«l a4-MAR«?& 



tut 



PAGE 1-31 



2645 


0000 


TYPE, 




2646 


6046 


Tli 




264? 


6041 


TSP 




2690 


9247 


JMP 


,•1 


26S1 


6042 


TCf 




2692 


7200 


cm 




2693 


9645 


JMP 


1 TYPE 


2694 


0000 


RAN03* 




2699 


7200 


CLA 




2696 


1*16 


TAD 


.♦40 


2697 


1^03 


TAP 


.♦24 


2660 


7640 


SZA 


CLA 


2661 


9*71 


JMP 


.♦10 


2662 


1305 


TAD 


.♦23 


2663 


3303 


OCA 


.♦20 


2664 


1304 


TAD 


.♦■20 


2669 


7104 


CLL 


RAL 


2666 


7430 


Sti 




2667 


7001 


I AC 




2670 


3304 


DCA 


.♦14 


2671 


1304 


TAD 


.♦13 


2672 


1703 


TAP 


I t+ll 


2673 


3703 


DCA 


I .+10 


2674 


1307 


TAD 


.♦13 


2675 


7010 


RAP, 




2676 


1703 


TAD 


I .+5 


2677 


2303 


IS2 


.♦4 


2700 


3317 


OCA 


.♦17 


2701 


1317 


TAD 


.♦16 


2702 


9654 


JMP 


I ."26 


2703 


8?16 


,♦13 




2704 


6543 


6543 




2705 


2706 


.+1 




2706 


2107 


2107 




2707 


6432 


5432 




2710 


7654 


7694 




2711 


0765 


0769 




2712 


4321 


4321 




2713 


3210 


3210 




2714 


1076 


1076 




2715 


6543 


6543 




2716 


9062 


** # 




2717 


0000 








/DISC OR DRUM DATA ERROR ROUTINE 



2720 


0000 


DDDATA. 


2721 


7604 


LAS 


2722 


0103 


AND K0400 


2723 


7640 


82A CLA 


2724 


9367 


JMP CMNGE3*! 



«C18E* 


1 - TAP! 


: 1 PAL 10 VI 41 


24-MAR-71 -t-llf 


a?** 


6002 


!0r 






2726 


7610 


SKP 


CLA 


/OR CLA 


2727 


5343 


JHP 


,♦14 




2730 


1374 


TAO 


PMES17 




2731 


4403 


JMS 


I PNTR1 


/TYPE OUT HEADER 


2732 


1022 


TAO 


oorEtD 




2733 


7110 


RAH 


CLL 




2734 


7012 


RTR 






2735 


4445 


JMS 


t PNTR24 


/ANO OATA riELO 


2736 


1074 


TAO 


PMES13 




2737 


4403 


JMS 


I PNTR1 


/TYPE OUT REST or HEADER 


2740 


1105 


TAD 


K7200 




2741 


9396 


OCA 


D0DATA*6 




2742 


4450 


JMS 


I PNTR33 




2743 


1022 


TAO 


DOFELO 




2744 


1366 


TAO 


CHNGE3 




2745 


3346 


OCA 


.♦1 




2746 


6201 


CD? 






2747 


1014 


TAO 


14 


/PICK UP "GOOD" ADORE SS 


2700 


4445 


JMS 


I PNTR24 




27*1 


U25 


TAD 


K0240 




2792 


4446 


JMS 


! PNTR25 




2753 


1571 


TAO 


I TEMP 


/PICK UP "6000" OATA 


2754 


4445 


JMS 


I PNTR24 




2755 


1125 


TAO 


K0240 




2756 


4446 


JMS 


t PNTR25 




2757 


ins 


TAO 


15 


/PICK UP "BAD" ADDRESS 


2760 


4445 


JMS 


I PNTR24 




2761 


1125 


TAO 


K0240 




2762 


4446 


JMS 


I PNTR25 




2763 


1571 


TAO 


I TEMP 


/PICK UP "BAD" DATA 


2764 


4445 


JMS 


I PNTR24 




2765 


4450 


JMS 


I PNTR33 




2766 


6201 


CHNGE3, COP 






2767 


7604 


LAS 






2770 


7004 


RAL 






2771 


7700 


SMA 


CLA 


/HALT ON ERROR? 


2772 


7402 


MLT 




/YES 


2773 


5720 


JMP 


I DDOATA 




2774 


1357 


PMES17, MESS17 






3000 


»3000 






3000 


0417 


MESS01, 0417 


/0»0 




3001 


0523 


0523 


/E»S 




3002 


40g4 


4024 


/SP.T 




3003 


1005 


1005 


/H.E 




3004 


4003 


4003 


/SP»C 




3005 


1715 


1715 


/OtM 




3006 


2025 


2025 


/P*U 




3007 


2405 


2405 


/TiE 




3010 


2240 


2240 


/R>SP 




3011 


1001 


1001 


/H*A 




3012 


$60$ 


26®3 


/V»E 





^CISCI 


* • TAP! 


. 1 PAL10 


V141 


24-MA0-71 


30X3 


4024 


4ft4 


/SP.T 




30X4 


1005 


1005 


/H>C 




3015 


4006 


4006 


/$p,r 




3016 


X714 


17X4 


/0»L 




3017 


XH7 


1417 


/i»«Q 




30^0 


VXX 


27H 


/M« I 




3021 


i607 


1607 


/HtQ 




3022 


4004 


4004 


/sise 




3023 


0526 


0526 


/e.v 




3024 


1103 


1103 


/liC 




3025 


0523 


0523 


/t#s 




3026 


4050 


4050 


/SP»( 




3027 


a*3i 


2431 


/T#Y 




3030 


2009 


2005 


/P#C 




3031 


4031 


4031 


/SP,Y 




3032 


5531 


5531 


/-»Y 




3033 


0523 


0523 


/£#$ 




3034 


4016 


4016 


/SP#N 




3035 


5516 


5516 


/*»N 




3036 


1751 


1751 


/0<) 




3037 


0000 





/END 




3040 


2206 


MESS08# 2206 


/R.F 




3041 


6070 


6070 


/0*S 




3042 


4004 


4004 


/SP,0 




3043 


1123 


1123 


VI »s 




3044 


0377 


0377 


/c»? 




3045 


0000 





/END 




3046 


0530 


MESS09, 0530 


/£»X 




3047 


2*22 


2422 


/TiR 




3050 


0140 


0140 


/A*$P 




3051 


1505 


1505 


/M»£ 




3052 


1517 


1517 


/MiO 




3093 


2231 


2231 


/R#Y 




3054 


7700 


7700 


/?»END 




3055 


1017 


MESS10. 1017 


/HtQ 




3056 


?740 


2740 


/W#SP 




3057 


1525 


1525 


/M»U 




3060 


0310 


0310 


/C#H 




3061 


7700 


7700 


/?»£NO 




3062 


0411 


MESSlli 0411 


/D.J 




3063 


2303 


2303 


/S»C 




3064 


4005 


4005 


/SP.E' 




3065 


2222 


2222 


/R.R 




3066 


1722 


1722 


/0»R 




3067 


4023 


4023 


/SP.S 




3070 


2401 


2401 


/T»A 




3071 


2425 


2425 


/T#U 




3072 


2340 


2340 


/S.SP 




3073 


4000 


4000 


/SP«ENO 




3074 


2403 


MESS12. 2403 


/T.C 




3075 


6061 


6061 


/0»1 





#119 
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nub vin 
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9119 
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3076 4009 40 99 

307? 2222 2222 

3100 1722 i722 

3101 4023 4023 

3102 240J 2401 

3103 2425 2425 

3104 2^40 2340 

3105 4000 4000 

3106 2403 MESS13, 2403 

3107 4570 6 570 

3110 4005 4005 

3111 2222 2222 

3112 1722 1722 

3113 4003 4023 

3114 2401 2401 

3115 2425 2425 

3116 2340 2340 

3117 4000 4000 

3120 0422 ME5S14, 0422 

3121 2515 2515 

3122 4005 4005 

3123 2222 2222 

3124 1722 17 a 2 

3125 4023 4023 

3126 2401 2401 

3127 2^25 2425 

3130 2340 2340 

3131 4000 4000 

3132 0701 MESS15. 0701 

3133 0404 0404 

3134 4007 4007 

3135 81401 04 01 

3136 2440 2440 

3137 0201 0201 

3140 0404 0404 

3141 4002 4002 

3142 0401 040^ 

3143 £400 2400 



/$P.£ 

/R»R 

/O.R 

/SP,0 

/T.A 

• T,U 

/S.SP 

/SP.ENO 

/T.C 

/5#0 

/SP.C 

/Rift 

/0«R 

/SP.S 

/T.A 

/T»U 

/S.SP 

/SP.END 

/0*R 

/U#M 

/8P.E 

/r.r 

/OiR 
/SP.S 

/TV A 

/TiU 

/S.SP 

/SP.ENO 

/GiA 

/0»0 

/$P,G 

/0»A 

/T.SP 

/8.A 

/D.D 

/SP.0 

/D.A 

/T.END 



3144 2403 MESS18, 2403 

3145 6061 606* 

3146 4004 4004 

3147 0124 0124 

3150 0140 0140 

3151 0522 0522 

3152 2217 2217 

3153 2240 2240 

3154 1116 1H6 

3155 4002 4002 
3136 0116 0U6 
3157 1340 i340 
3160 4000 4000 



/T.C 
/0«1 
/SP.D 

/A»T 

/A»SP 

/E.R 

/R.O 
/R.SP 
/I.N 
/SP,B 

/A.N 

/K.SP 
/SP.END 



3161 0414 



PR0338. 414 



/SET SCALE TO 1, INTENSITY TO 4 



/0«fl £ CI»fR ..- TAPE 1 



31*2 


1107 


31*3 


0100 


31*4 


4101 


31*5 


1121 


3166 


4000 


31*7 


1*00 


3170 


5*00 


3171 


0000 


3172 


4000 


3173 


3*00 


3174 


7*00 


3175 


4000 


3176 


3000 


3177 


3165 



PAL10 ¥*4t 

1107 

100 

4100 

1121 
4000 

1600 
5*00 



4000 

3600 

7*00 

4000 

2000 

PR0338+4 



£4»tt4rR*7i 



ttl» 



PACt 1*39 



,??!*!! P ! ! * T MO0C AN0 0ATA STATE » C ^** COORD AND SECTORS 
/SET V*100 

/SET X«100, ESCAPE 

/ENTER VECTOR MQOE ANO DATA STATE 

/OCLTA Y»0, intensify 

/DELTA X«1*00 

/DELTA Y»1*00, INTENSITY 

/DELTA X*0 

/DELTA Y*0, INTENSIFY 

/DELTA X«»*600 

/DELTA Yf»-U00, INTENSIFY 

/DELTA X*0f ESCAPE 

/JMP I t *l 



/OMii cL aaz* - tapc t 



•AU0 V14X 24~MA*-7l 



tt!9 



■A«C 1*3* 



•••• 01111111 

0100 llllllll 

•200 mum 

0300 llllllll 

0401 llllllll 

0500 llllllll 

0600 llllllll 

0700 llllllll 



00000000 llllllll mum 
llllllll llllllll llUUli 



llllllll 
llllllll 

llllllll 
llllllll 

llllllll 
llllllll 



llllllll 
llllllll 

llllllll 
llllllll 

llllllll 
llllllll 



llllllll 
llllllll 

llllllll 
llllllll 

llllllll 
llllllll 



llllllll llllllll llllllll 

llllllll llllllll Ilium 



llllllll 
llllllll 

llllllll 
llllllll 

llllllll 
llllllll 



llllllll 
llllllll 

llllllll 
llllllll 

llllllll 
llllllll 



llllllll 
llllllll 

llllllll 
llllllll 

llllllll 
llllllll 



llllllll 

11111100 

llllllll 
11111110 

llllllll 
11111110 

llllllll 
11111110 



1000 UllUU 

1100 llllllll 

1200 llllllll 

1300 llllllll 

1400 llllllll 

1500 UllUU 

1600 llllllll 

1700 llllllll 



llllllll 
llllllll 

llllllll 
llllllll 

llllllll 
llllllll 

llllllll 
llllllll 



llllllll 
llllllll 

llllllll 
llllllll 

llllllll 
llllllll 

llllllll 
llllllll 



llllllll 
llllllll 

llllllll 
llllllll 

llllllll 
llllllll 

llllllll 
UllUU 



llllllll 
llllllll 

llllllll 
llllllll 

llllllll 
llllllll 

llllllll 
llllllll 



llllllll 
llllllll 

llllllll 
llllllll 

llllllll 
llllllll 

llllllll 
llllllll 



llllllll 
llllllll 

llllllll 
llllllll 

llllllll 
llllllll 

llllllll 
llllllll 



llllllll 
11100000 

llllllll 
llllllll 

llllllll 
11110000 

llllllll 
11111100 



2000 llllllll 

2100 llllllll 

2200 UllUU 

2300 llUUli 

2400 llUUli 

2500 llllllll 

2600 UIUUI 

2700 UUUU 



llllllll 
llllllll 

llllllll 
llllllll 

llllllll 
llllllll 

llllllll 
llllllll 



llllllll 
UIUUI 

llllllll 
llllllll 

llllllll 
llllllll 

UllUU 
llllllll 



UllUU 
UIUUI 

llllllll 
llllllll 

UUUU 
llllllll 

UUUU 
llllllll 



llllllll 
llUUli 

llllllll 
llllllll 

llllllll 
UUUU 

llllllll 
UUUU 



llllllll 
llllllll 

UIUUI 
llllllll 

llllllll 
llllllll 

llllllll 
llllllll 



llllllll 
llllllll 

llllllll 

UllUU 

llllllll 

UllUU 

llllllll 
llllllll 



llllllll 
llllllll 

UllUU 
llllllll 

llllllll 

11100000 

llllllll 
iiim 



3000 
3100 

3200 
3300 

3400 

3500 



llllllll 
llllllll 



llllllll 
UUUU 



llllllll 
llllllll 



llllllll 
llllllll 



llllllll 
llllllll 



llllllll 
llllllll 



llllllll 
llllllll 



llllllll 
llllllll 



3< 
3700 



/O101 &L .-IK* - TAP* l PllU Vlil 24-MAR-71 fM 9 »*fCl»»T 



4110 
410f 

4200 

4300 

4400 

4500 

4600 
4700 



5000 
5100 

5200 
5300 

5400 

5500 

5600 
5700 



6000 
6100 

6200 
6300 

6400 
6500 

6600 
6700 



7000 
7100 

7200 
7300 

7400 
7500 

7600 
7700 



/OHfi c^ertER - nn i 



*AUr ¥l#t 24-NAH-71 



AC 


•144 


ASK1 


021* 


ASK2 


1229 


ASK3 


1234 


ASK4 


9243 


ASK5 


0253 


ASK6 


02*3 


ASK7 


0272 


surri 


0106 


Borra 


0112 


buffj 


0114 


8UFF4 


0107 


BUFFI 


0111 


BUFF* 


0113 


cor 


#201 


CHAR 


0193 


CHNGE1 


1*60 


CWNGE2 


2246 


CHNGE3 


2766 


CIF 


6202 


CRLF 


2363 


OCCA 


«6li 


OC1M 


6^11 


DCMA 


6601 


OOAC 


0561 


DDCNTR 


0174 


DDOATA 


2720 


DDEXCR 


0400 


OOFELD 


0022 


OOFLAC 


2643 


DOIB 


0363 


ODLINK 


0562 


DOIOOP 


0565 


OOPC 


0564 


DDREAD 


0443 


DDREST 


0547 


DDRITE 


0435 


OOSAVE 


0535 


DOSTAT 


0151 


CEAC 


6616 


DEAL 


6615 


DECTAP 


0600 


0F32 


0644 


DP32EX 


0526 


DF32PR 


0166 


DF32RD 


0755 


DF32RE 


0534 


Dr32RI 


0533 


D^32WR 


0735 


0r32WT 


0707 


DfSC 


6622 


DFSE 


662i 



Ol«A 

011330 
DI0CAD 

QISCEA 

DHAC 

OMAR 

OMAM 

ORCF 

DRCN 

ORCR 

ORCW 

DREF 

ORES 

DRFS 

ORMSEC 

ORSC 

PRSE 

DRTS 

ORUHAD 

ORUMWT 

OSAC 

DTAC 

OTCA 

OTCNTR 

OTOATA 

DTERR 

DT&XER 

OTFELD 

OTFUAG 

DTJB 

OTUA 

OTLB 

DTLINK 

DTPC 

DTPNTR 

OTRA 

OTRB 

OTREAD 

DTREST 

DTRJTE 

DT$AVE 

OTSF 

DTSTAT 

OTWAIT 

DTXA 

OXAU 

EXIT 

FEj.0 

POUND 

GET 

HALT1 



6610 
6615 
0)65 

0140 

01*7 
6626 
6613 
6605 

6611 
6624 

6603 

6605 

661? 

6613 

6624 

0192 

6622 

6621 

6615 

0141 

1434 

6612 

1322 

6762 

0170 

1712 

1137 

1600 



2637 

1324 

6766 

6774 

1323 

1325 

0163 

6761 

6772 

1047 

1343 

1067 

1331 

6771 

01*6 

1107 

6764 

6643 



HAIT2 
MALT3 

WAIT 4 

INPUT 

INTERN 

INTERR 

JMP338 

JMPCON 

JMP032 

JMPOEC 

JHPMAC 

JMPR08 

JMPRM8 

K0802 

K0003 

K0003A 

K0004 

K0007 

K0010 

K0014 

K0020 

K0040 

K0070 

K0077 

K0100 

K0130 

K0150 

K0200 

K0212 

K0215 

K0240 

K0260 

K0277 



0162 
1145 
2554 
1135 



K0600 

K0604 

K0614 

K0626 

K0636 

K0666 

K0676 

K0746 

K1000 

K3000 

K7200 

K7700 

K7750 

K7751 

K7752 

K7753 

K7754 

K7755 



•J 10 

lSli 

1457 
0733 
2254 

0143 

0207 

0161 

0706 

0157 

0154 

0155 

0160 

0156 

1152 

1153 

1711 

1767 

0130 

0135 

0110 

0134 

0124 

0123 

2361 

0132 

1150 

1151 

0104 

0127 

0126 

0125 

2360 

2357 

0103 

1154 

0776 

1155 

1356 

1355 

2170 

1254 

1564 

0136 

0122 

0105 

2362 

0075 

0076 

0077 
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0101 
0102 



LINK 

L0C8E0 

LOOK 

M0003 

M0084 

M0040 

M0316 

M0331 

N2700 

MAGTAP 
MEMORY 
MESAGE 

MESS01 
MESS02 

MESS83 

MESS04 

MESS06 

MESS07 

MESS08 

MESS89 

MESS10 

MESS11 

MESS12 

MESS13 

MESS14 

MESS15 

MESS16 

MESS17 

MESS18 

MTAC 

MTAF 

MTCM 

MTCNTR 

MTCR 

MTDATA 

MTERR 

MTEXER 

MTTELD 

MTFLAG 

MTGO 

MTHLT1 

MTHLT2 

MTIB 

MTLC 

MTLINK 

MTPC 

MTPNTR 

MTREAD 

MTRE8T 

MTRiTE 

MTRS 

MTSAVE 



0145 

1043 

0175 

0119 

0121 

0131 

0116 

0117 

0120 

0610 

2634 

2321 

3000 

1565 

2171 

2371 

1770 

2565 

3040 

3046 

3055 

3062 

3074 

3106 

3120 

3132 

1156 

1357 

3144 

2156 

6712 

6714 

0173 

6711 

2200 

1255 

2000 

0021 

2641 

6722 

0614 

0617 

2160 

6716 

2157 

2161 

0164 

1200 

2144 

1532 

6706 

2132 



•0*§i e; .cuer • tape % 



PAL 10 VIA! 



a*-MAR-?i 



»t*r 


4701 


MTITAT 


0147 


mTTR 


•721 


Ml WAIT 


1804 


MOOltC 


0^45 


PMEliA 


0344 


PMES10 


0073 


PMESll 


0775 


PMES12 


1147 


PMES13 


1336 


PMES14 


1943 


PMCS15 


0074 


PMESH 


1*96 


PMES17 


3774 


PMES18 


1746 


PMESS1 


0063 


PMESS2 


0064 


PMESS3 


0065 


PMES84 


0066 


PMESS* 


0067 


PHESS7 


0070 


PMESS8 


0071 


PMES89 


0072 


PNTR1 


0003 


PNTR10 


2027 


PNTRli 


0030 


PNTR12 


0031 


PNTR13 


0032 


PNTR14 


0033 


PNTR15 


0034 


PNTRt6 


0035 


PNTR17 


0036 


PNTRiS 


0037 


PNTR19 


0040 


PNTR2 


0004 


PNTR20 


0041 


PNTR21 


0042 


PNTR22 


0043 


PNTR23 


0044 


PNTR24 


0045 


PNTR25 


0046 


PNTR26 


2162 


PNTR27 


8163 


PNTR28 


2164 


PNTR29 


2165 


PNTR3 


0005 


PNTR30 


2166 


PNTR31 


8167 


PNTR32 


0047 


PNTR33 


0050 


PNTR34 


0051 


PNTR35 


0052 



PKTR34 
PNTftSl 

PNTR39 
PHfft4 

PNTR40 

PNTR41 

PNTR42 

PNTR43 

PNTR44 

PNTR45 

PNTR46 

PNTR47 

PNTR40 

PNTR49 

PNTR5 

PNTR6 

PNTR7 

PNTR8 

PNYR9 

P09IT 

PRINT 

PR0338 

QUEST 

RANCON 

RAND1 

RAN02 

RANDS 

RANOEX 

RANGEN 

RANSAV 

RANTAD 

RANTBl 

RANTND 

RDCOMP 

ROF 

RECORD 

REWIND 

RF08 

RF08EX 

RF08PR 

RF08RD 

RF08RE 

RF08RI 

RF08WR 

RF08WT 

RIB 

RIP 

RM08 

RM08EX 

RM08PR 

RM08RD 

RM08RE 



0093 

0094 

0099 

0004 

0096 

0997 

0060 

1327 

1330 

0703 

0704 

0705 

0041 

0062 

0007 

0023 

0024 

0025 



2344 

2277 

3161 

2273 

2430 

2444 

2510 

2654 

2427 

2400 

2443 

2415 

2431 

2442 

1220 

6214 

01S0 

1240 

0662 

0517 

0167 

1461 

0525 

0524 

1501 

1521 

6234 

6224 

0627 

0510 

0165 

1400 

0516 



*M00RI 

RM00W* 

RHP 

SCAN 

SEARCH 

SKIP 

SPCfWO 

START 

TEMP 

TEMPI 

TEST 

TRACK 

TYPE 



♦ I If 

0519 

1414 
6244 
2600 
1000 

0133 
2112 

0200 
0171 
0172 
0327 
0142 
2645 



PACE 1-30 
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